X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Fdebug.lisp;h=3186f17a887293ae036a96991d7c1de205994b70;hb=99bcb3a92b44ce343586f8bd7c717d665f31f4ad;hp=ad90045d2cd73bea7bc27a4a14aff823cbae1c3d;hpb=6c765578c8dc4bcc7798e37c9918715f198b30da;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index ad90045..3186f17 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -1164,8 +1164,10 @@ argument")
 ;;;(!def-debug-command "QUIT" ()
 ;;;  (throw 'sb!impl::top-level-catcher nil))
 
-;;; CMU CL supported this GO debug command, but SBCL doesn't -- just
-;;; type the CONTINUE restart name.
+;;; CMU CL supported this GO debug command, but SBCL doesn't -- in
+;;; SBCL you just type the CONTINUE restart name instead (or "RESTART
+;;; CONTINUE", that's OK too).
+
 ;;;(!def-debug-command "GO" ()
 ;;;  (continue *debug-condition*)
 ;;;  (error "There is no restart named CONTINUE."))
@@ -1205,7 +1207,7 @@ argument")
   ;; desperate holdout is running this on a dumb terminal somewhere,
   ;; we tell him where to find the message stored as a string.
   (format *debug-io*
-	  "~&~a~2%(The HELP string is stored in ~S.)~%"
+	  "~&~A~2%(The HELP string is stored in ~S.)~%"
 	  *debug-help-string*
 	  '*debug-help-string*))