X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-error.lisp;h=32f71adc1bcdb98d55a505c49c070bf17162d36c;hb=b7a8f5313a83dea33ce60551a4fb987b415c2cc6;hp=d35f10776350a1eb3c211b60217478000244f145;hpb=a10eba73462a7203914114f3a4bdac98c741ec08;p=sbcl.git

diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp
index d35f107..32f71ad 100644
--- a/src/code/cold-error.lisp
+++ b/src/code/cold-error.lisp
@@ -32,7 +32,7 @@
 	  (*break-on-signals* nil))
       (when (typep condition old-bos)
 	(/noshow0 "doing BREAK in because of *BREAK-ON-SIGNALS*")
-	(break "~A~%BREAK was entered because of *BREAK-ON-SIGNALS* (now NIL)."
+	(break "~A~%BREAK was entered because of *BREAK-ON-SIGNALS* (now rebound to NIL)."
 	       condition)))
     (loop
       (unless *handler-clusters*
@@ -126,7 +126,7 @@
 
 ;;; like BREAK, but without rebinding *DEBUGGER-HOOK* to NIL, so that
 ;;; we can use it in system code (e.g. in SIGINT handling) without
-;;; messing up --noprogrammer mode (which works by setting
+;;; messing up --disable-debugger mode (which works by setting
 ;;; *DEBUGGER-HOOK*); or for that matter, without messing up ordinary
 ;;; applications which try to do similar things with *DEBUGGER-HOOK*
 (defun %break (what &optional (datum "break") &rest arguments)