X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-error.lisp;h=254213c144d69466b213d2dbdc1458c883f26137;hb=031ae238d37250e935dabaf2a3efb6e0305dd3e7;hp=193667513b86ae9caa17ffb479e8fc8491246d5f;hpb=0af84c9c90b1277be6863df8f28f1f0e5512323c;p=sbcl.git diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp index 1936675..254213c 100644 --- a/src/code/cold-error.lisp +++ b/src/code/cold-error.lisp @@ -116,7 +116,6 @@ ;;; messing up --noprogrammer mode (which works by setting ;;; *DEBUGGER-HOOK*) (defun %break (what &optional (datum "break") &rest arguments) - ;; FIXME: Do we really want INFINITE-ERROR-PROTECT in BREAKish stuff? (sb!kernel:infinite-error-protect (with-simple-restart (continue "Return from ~S." what) (let ((sb!debug:*stack-top-hint* (maybe-find-stack-top-hint)))