0.pre7.126:

[sbcl.git] / src / compiler / generic / interr.lisp

diff --git a/src/compiler/generic/interr.lisp b/src/compiler/generic/interr.lisp
index b48d836..f1dfb33 100644 (file)
--- a/src/compiler/generic/interr.lisp
+++ b/src/compiler/generic/interr.lisp
@@ -24,8 +24,8 @@
 ;;; functions as closures instead of DEFUNs?
 (eval-when (:compile-toplevel :execute)
   (def!macro define-internal-errors (&rest errors)
-            (let ((info (mapcar #'(lambda (x)
-                                    (if x
+            (let ((info (mapcar (lambda (x)
+                                  (if x
                                       (cons (symbolicate (first x) "-ERROR")
                                             (second x))
                                       '(nil . "unused")))