0.pre7.124:

[sbcl.git] / src / code / reader.lisp

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 953ab92..dacf6b2 100644 (file)
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -162,8 +162,8 @@
     (replace (character-macro-table really-to-readtable)
             (character-macro-table really-from-readtable))
     (setf (dispatch-tables really-to-readtable)
-         (mapcar #'(lambda (pair) (cons (car pair)
-                                        (copy-seq (cdr pair))))
+         (mapcar (lambda (pair) (cons (car pair)
+                                      (copy-seq (cdr pair))))
                  (dispatch-tables really-from-readtable)))
     (setf (readtable-case really-to-readtable)
          (readtable-case really-from-readtable))