proper-list-p removed from fare-utils, yet we're not using alexandria. Commenting...
authorFrancois-Rene Rideau <fare@tunes.org>
Tue, 24 Jul 2012 00:33:15 +0000 (20:33 -0400)
committerFrancois-Rene Rideau <fare@tunes.org>
Tue, 24 Jul 2012 00:33:15 +0000 (20:33 -0400)
quasiquote.lisp

index 1014f3e..d0a36e2 100644 (file)
@@ -33,7 +33,7 @@
 (make-single-arg-form unquote-nsplicing)
 (defun make-vector-form (&rest x) (list* 'vector x))
 (defun vector-form-p (x)
-  (and (proper-list-p x) (eq (car x) 'vector)))
+  (and (listp x) #|(alexandria:proper-list-p x)|# (eq (car x) 'vector)))
 
 (defmacro quote (x) (list 'cl:quote x))
 (defmacro quasiquote (x) (quasiquote-expand x))