Rename tbl-append to add-row

package.lsp

@@ -1,4 +1,4 @@
 (defpackage text-table
   (:use common-lisp)
   (:nicknames txt-tbl)
-  (:export tbl-append print-table parse parse-file))
+  (:export add-row print-table parse parse-file))

text-table.lsp

@@ -3,8 +3,8 @@
 ;; table -> (title row row ... row)
 ;; title, row -> #(element element ... element)
 
-(defun tbl-append (row tbl)
-  "Appends row to the table"
+(defun add-row (row tbl)
+  "Adds row to the table"
   (declare (array row)
            (list tbl))