X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-signal.lisp;h=9ad1f365d850d17c6d531c5e503af25779a8932c;hb=f0d511130027c6878f08d619ccc92ef588d81223;hp=1d99910facd3efce8354fa3b36860f8be2e181e1;hpb=372989d837526e3100b364153d58181a2a563351;p=sbcl.git diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp index 1d99910..9ad1f36 100644 --- a/src/code/target-signal.lisp +++ b/src/code/target-signal.lisp @@ -86,7 +86,7 @@ ;;; SIGINT is handled like BREAK, except that ANSI BREAK ignores ;;; *DEBUGGER-HOOK*, but we want SIGINT's BREAK to respect it, so that -;;; SIGINT in --noprogrammer mode will cleanly terminate the system +;;; SIGINT in --disable-debugger mode will cleanly terminate the system ;;; (by respecting the *DEBUGGER-HOOK* established in that mode). (defun sigint-%break (format-string &rest format-arguments) (apply #'%break 'sigint format-string format-arguments))