Add SEQUENCEP.
authorOlof-Joachim Frahm <olof@macrolet.net>
Mon, 10 Jun 2013 09:21:42 +0000 (11:21 +0200)
committerOlof-Joachim Frahm <olof@macrolet.net>
Thu, 29 Aug 2013 10:44:16 +0000 (12:44 +0200)
src/sequence.lisp

index be36e99..448d60c 100644 (file)
@@ -15,6 +15,9 @@
 
 (/debug "loading sequence.lisp!")
 
 
 (/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))
 
 (defun not-seq-error (thing)
   (error "`~S' is not of type SEQUENCE" thing))