X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug.lisp;h=25b55c59b6ad6b02e441cca82fff6ee2d47f2835;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=c81ea494a9e677fab323198d8336b5787a018c66;hpb=2c6b90e36a7c0377cd79625eb6c94d580f98cb93;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index c81ea49..25b55c5 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -260,7 +260,7 @@ Function and macro commands:
 	 :type (or sb!di:code-location sb!di:debug-function))
   ;; the breakpoint returned by sb!di:make-breakpoint
   (breakpoint (required-argument) :type sb!di:breakpoint)
-  ;; the function returned from sb!di:preprocess-for-eval. If result is
+  ;; the function returned from SB!DI:PREPROCESS-FOR-EVAL. If result is
   ;; non-NIL, drop into the debugger.
   (break #'identity :type function)
   ;; the function returned from sb!di:preprocess-for-eval. If result is