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

Diff of /slime/swank-lispworks.lisp

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

revision 1.109 by heller, Sat Aug 9 19:56:52 2008 UTC revision 1.110 by heller, Sat Aug 9 19:57:00 2008 UTC
# Line 220  Return NIL if the symbol is unbound." Line 220  Return NIL if the symbol is unbound."
220  (defmethod env-internals:environment-display-debugger ((env slime-env))  (defmethod env-internals:environment-display-debugger ((env slime-env))
221    *debug-io*)    *debug-io*)
222    
223  ;;(defimplementation call-with-debugger-hook (hook fun)  (defimplementation call-with-debugger-hook (hook fun)
224  ;;  (let ((*debugger-hook* hook))    (let ((*debugger-hook* hook))
225  ;;    (env:with-environment ((slime-env hook '()))      (env:with-environment ((slime-env hook '()))
226  ;;      (funcall fun))))        (funcall fun))))
227    
228  (defimplementation install-debugger-globally (function)  (defimplementation install-debugger-globally (function)
229    (setq *debugger-hook* function)    (setq *debugger-hook* function)
230    (setf (env:environment) (slime-env function '())))    (setf (env:environment) (slime-env function '())))
231    
232    (defmethod env-internals:environment-display-notifier
233        ((env slime-env) &key restarts condition)
234      (declare (ignore restarts))
235      ;;(funcall (swank-sym :swank-debugger-hook) condition *debugger-hook*)
236      (values t nil)
237      )
238    
239    (defmethod env-internals:environment-display-debugger ((env slime-env))
240      *debug-io*)
241    
242    (defmethod env-internals:confirm-p ((e slime-env) &optional msg &rest args)
243      (apply (swank-sym :y-or-n-p-in-emacs) msg args))
244    
245  (defvar *sldb-top-frame*)  (defvar *sldb-top-frame*)
246    
247  (defun interesting-frame-p (frame)  (defun interesting-frame-p (frame)
# Line 783  function names like \(SETF GET)." Line 796  function names like \(SETF GET)."
796  (defimplementation emacs-connected ()  (defimplementation emacs-connected ()
797    (when (eq (eval (swank-sym :*communication-style*))    (when (eq (eval (swank-sym :*communication-style*))
798              nil)              nil)
799      (set-sigint-handler))      (set-sigint-handler)))
   ;; pop up the slime debugger by default  
   (let ((lw:*handle-warn-on-redefinition* :warn))  
     (defmethod env-internals:environment-display-notifier  
         (env &key restarts condition)  
       (declare (ignore restarts))  
       (funcall (swank-sym :swank-debugger-hook) condition *debugger-hook*))  
     (defmethod env-internals:environment-display-debugger (env)  
       *debug-io*)))  
   
   
 (defmethod env-internals:confirm-p ((e slime-env) &optional msg &rest args)  
   (apply (swank-sym :y-or-n-p-in-emacs) msg args))  
800    
801    
802  ;;;; Weak hashtables  ;;;; Weak hashtables

Legend:
Removed from v.1.109  
changed lines
  Added in v.1.110

  ViewVC Help
Powered by ViewVC 1.1.5