X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug.lisp;h=05cef22c98a7355fc897cb0c951302160a3e630d;hb=d84e1dbbbf11e76663cfaa0b1a5b7591f39f01b6;hp=16607b5750ff38673c8010d2f2f91235239a5faa;hpb=513af2184c971e8d6b874e880b02e31909e9e2d2;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 16607b5..05cef22 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -667,6 +667,8 @@ reset to ~S."
 ;;; halt-on-failures and prompt-on-failures modes, suitable for
 ;;; noninteractive and interactive use respectively
 (defun disable-debugger ()
+  "When invoked, this function will turn off both the SBCL debugger
+and LDB (the low-level debugger).  See also ENABLE-DEBUGGER."
   ;; *DEBUG-IO* used to be set here to *ERROR-OUTPUT* which is sort
   ;; of unexpected but mostly harmless, but then ENABLE-DEBUGGER had
   ;; to set it to a suitable value again and be very careful,
@@ -681,6 +683,7 @@ reset to ~S."
                                                  (function sb!alien:void))))
 
 (defun enable-debugger ()
+  "Restore the debugger if it has been turned off by DISABLE-DEBUGGER."
   (when (eql *invoke-debugger-hook* 'debugger-disabled-hook)
     (setf *invoke-debugger-hook* *old-debugger-hook*
           *old-debugger-hook* nil))