Mon Jul 20 01:09:25 UTC 2009 pix@kepibu.org
* Better reporting of undefined-feature-tests.
diff -rN -u old-portaCL/feature-tests.lisp new-portaCL/feature-tests.lisp
--- old-portaCL/feature-tests.lisp 2013-07-04 23:53:17.000000000 +0000
+++ new-portaCL/feature-tests.lisp 2013-07-04 23:53:17.000000000 +0000
@@ -12,8 +12,8 @@
(declare (ignore _))
(restart-case
(error 'undefined-feature-test
- :format-control "Unknown feature test: ~a"
- :format-arguments (list feature))
+ :format-control "Unknown feature test: ~s"
+ :format-arguments (list (car feature)))
(treat-as-true ()
:report "Pretend this feature-form were true."
t)