X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flist.lisp;h=4dea431fe4308f063cc5a13f629de43368a04812;hb=3b45a7b66afe95080562d266dd447b1286abece0;hp=35d56716eb6ee4b919fe3d9d9c3413217258309a;hpb=99ad0a384664dc98af26245a33f11619ec0854ad;p=sbcl.git

diff --git a/src/code/list.lisp b/src/code/list.lisp
index 35d5671..4dea431 100644
--- a/src/code/list.lisp
+++ b/src/code/list.lisp
@@ -506,15 +506,15 @@
     ;; KLUDGE: This declaration is a hack to make the closure ignore
     ;; all its arguments without consing a &REST list or anything.
     ;; Perhaps once DYNAMIC-EXTENT is implemented we won't need to
-    ;; screw around with this kind of thing.
-    (declare (optimize-interface (speed 3) (safety 0)))
+    ;; screw around with this kind of thing. -- WHN 2001-04-06
+    (declare (optimize (speed 3) (safety 0)))
     value))
 
 ;;;; macros for (&KEY (KEY #'IDENTITY) (TEST #'EQL TESTP) (TEST-NOT NIL NOTP))
 
-;;; Use these with the following keyword args:
+;;; Use these with the following &KEY args:
 (defmacro with-set-keys (funcall)
-  `(cond ((and testp notp) (error "Test and test-not both supplied."))
+  `(cond ((and testp notp) (error ":TEST and :TEST-NOT were both supplied."))
 	 (notp ,(append funcall '(:key key :test-not test-not)))
 	 (t ,(append funcall '(:key key :test test)))))