/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by heller, Mon Mar 1 09:02:23 2004 UTC revision 1.71 by heller, Wed Mar 3 20:55:38 2004 UTC
# Line 466  Return NIL if the symbol is unbound." Line 466  Return NIL if the symbol is unbound."
466    (declare (type function debugger-loop-fn))    (declare (type function debugger-loop-fn))
467    (let* ((*sldb-stack-top* (or sb-debug:*stack-top-hint* (sb-di:top-frame)))    (let* ((*sldb-stack-top* (or sb-debug:*stack-top-hint* (sb-di:top-frame)))
468           (*sldb-restarts* (compute-restarts *swank-debugger-condition*))           (*sldb-restarts* (compute-restarts *swank-debugger-condition*))
469           (sb-debug:*stack-top-hint* nil)           (sb-debug:*stack-top-hint* nil))
          (*debugger-hook* nil)  
          (*readtable* (or sb-debug:*debug-readtable* *readtable*))  
          (*print-level* 4 #+nil sb-debug:*debug-print-level*)  
          (*print-length* 10 #+nil sb-debug:*debug-print-length*)  
          (*print-readably* nil))  
470      (handler-bind ((sb-di:debug-condition      (handler-bind ((sb-di:debug-condition
471                      (lambda (condition)                      (lambda (condition)
472                        (signal (make-condition                        (signal (make-condition

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.5