proper-list-p removed from fare-utils, yet we're not using alexandria. Commenting...

diff --git a/quasiquote.lisp b/quasiquote.lisp
index 1014f3e..d0a36e2 100644 (file)
--- a/quasiquote.lisp
+++ b/quasiquote.lisp
@@ -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))