Added tablep function.

src/api/package.lisp

@@ -48,6 +48,7 @@
              #:standard-header
              #:with-header)
   (:reexport #:vellum.table
+             #:tablep
              #:*current-row*
              #:*transform-in-place*
              #:aggregate

src/table/generics.lisp

@@ -51,3 +51,5 @@
 (defgeneric bind-row-closure (bind-row-object &key header aggregated-output))
 
 (defgeneric read-iterator (object))
+
+(defgeneric tablep (object))

src/table/implementation.lisp

@@ -724,3 +724,11 @@
                        :report "Skip this row."
                        nil))))))
       (call-next-method)))
+
+
+(defmethod tablep ((object t))
+  nil)
+
+
+(defmethod tablep ((object fundamental-table))
+  t)

src/table/package.lisp

@@ -60,6 +60,7 @@
    #:transformation
    #:transformation-error
    #:transformation-result
+   #:tablep
    #:vmask
    #:vstack
    #:vstack*