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

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 25b55c5..76179a0 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -439,7 +439,7 @@ Function and macro commands:
 			    (*standard-output* *debug-io*))
   #!+sb-doc
   "Show a listing of the call stack going down from the current frame. In the
-   debugger, the current frame is indicated by the prompt. Count is how many
+   debugger, the current frame is indicated by the prompt. COUNT is how many
    frames to show."
   (fresh-line *standard-output*)
   (do ((frame (if *in-the-debugger* *current-frame* (sb!di:top-frame))
@@ -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