From 916539de6153df7b4f6838c5e03ef420a890256c Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Mon, 10 Jun 2013 11:21:42 +0200 Subject: [PATCH] Add SEQUENCEP. --- src/sequence.lisp | 3 +++ 1 file changed, 3 insertions(+) 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)) -- 1.7.10.4