Fixed error occuring in SEQ-TYPE when applied to empty strings and ve…

…ctors. (Was causing failure in test APPLY-PATCH after fixes to GitHub issue #5.)
agrostis · May 3, 2021 · 702604b · 702604b
1 parent c15ffab
commit 702604b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib.lisp b/lib.lisp
@@ -47,7 +47,7 @@
                 ((stringp x) 'string)
                 ((vectorp x) 'vector)
                 (t (error "Not a sequence")))
-          (if (not (null x))
+          (if (if (listp x) (not (null x)) (plusp (length x)))
               (let ((x0 (elt x 0)))
                 (if (typep x0 'sequence)
                     (seq-type x0)