From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Mon, 10 Jun 2013 09:21:42 +0000 (+0200)
Subject: Add SEQUENCEP.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=916539de6153df7b4f6838c5e03ef420a890256c

Add SEQUENCEP.
---

diff --git a/src/sequence.lisp b/src/sequence.lisp
index be36e99..448d60c 100644
--- 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))