Add SEQUENCEP.

[jscl.git] / src / sequence.lisp

diff --git a/src/sequence.lisp b/src/sequence.lisp
index be36e99..448d60c 100644 (file)
--- a/src/sequence.lisp
+++ b/src/sequence.lisp
@@ -15,6 +15,9 @@
 
 (/debug "loading sequence.lisp!")
 
+(defun sequencep (thing)
+  (or (listp thing) (vectorp thing)))
+
 (defun not-seq-error (thing)
   (error "`~S' is not of type SEQUENCE" thing))