Sun Jul 19 13:58:20 UTC 2009 pix@kepibu.org
* Use consp to avoid treating nil as a list
diff -rN -u old-portaCL/feature-tests.lisp new-portaCL/feature-tests.lisp
--- old-portaCL/feature-tests.lisp 2013-06-12 02:02:08.000000000 +0000
+++ new-portaCL/feature-tests.lisp 2013-06-12 02:02:08.000000000 +0000
@@ -20,7 +20,7 @@
(treat-as-nil ()
:report "Pretend this feature-form were false."
nil)))))
- (if (listp feature)
+ (if (consp feature)
(apply (gethash (car feature) *feature-tests* no-such-test)
(cdr feature))
(member feature *features* :test #'eq))))