X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdebug.lisp;h=ba1c054d00ab76cc77c9e2121ab11b970e5d2da3;hb=3bd7a97d1b11a2b0aee086ef211cae807f3dfc35;hp=25b55c59b6ad6b02e441cca82fff6ee2d47f2835;hpb=0af84c9c90b1277be6863df8f28f1f0e5512323c;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 25b55c5..ba1c054 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -1288,10 +1288,10 @@ argument")
 (defvar *cached-readtable* nil)
 (declaim (type (or readtable null) *cached-readtable*))
 
-(pushnew #'(lambda ()
-	     (setq *cached-debug-source* nil *cached-source-stream* nil
-		   *cached-readtable* nil))
-	 sb!int:*before-save-initializations*)
+(pushnew (lambda ()
+	   (setq *cached-debug-source* nil *cached-source-stream* nil
+		 *cached-readtable* nil))
+	 *before-save-initializations*)
 
 ;;; We also cache the last top-level form that we printed a source for
 ;;; so that we don't have to do repeated reads and calls to