0.pre7.14.flaky4:

[sbcl.git] / src / code / early-target-error.lisp

diff --git a/src/code/early-target-error.lisp b/src/code/early-target-error.lisp
index 17a950e..87bc240 100644 (file)
--- a/src/code/early-target-error.lisp
+++ b/src/code/early-target-error.lisp
@@ -165,8 +165,8 @@
                                    ',name)))
                `(with-condition-restarts
                     ,n-cond
-                    (list ,@(mapcar #'(lambda (da)
-                                        `(find-restart ',(nth 0 da)))
+                    (list ,@(mapcar (lambda (da)
+                                      `(find-restart ',(nth 0 da)))
                                     data))
                   ,(if (eq name 'cerror)
                        `(cerror ,(second expression) ,n-cond)