X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=ad0e294cd3498b755d7df713949262a0bcfe826c;hb=e0814eee6f6dea52db010b45a330100f2fe65832;hp=03bfd1b2f6c6b67b20817b3e7b8d091118f77144;hpb=165bb53b405ab95ce76615ab77cee8284df0a36e;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 03bfd1b..ad0e294 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -94,7 +94,7 @@
        *READ-EVAL*			T
        *READ-SUPPRESS*			NIL
        *READTABLE*			the standard readtable"
-  `(%with-standard-io-syntax #'(lambda () ,@body)))
+  `(%with-standard-io-syntax (lambda () ,@body)))
 
 (defun %with-standard-io-syntax (function)
   (let ((*package* (find-package "COMMON-LISP-USER"))