/[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.99 by heller, Thu Apr 17 14:56:43 2008 UTC revision 1.100 by msimmons, Wed Jul 2 10:02:57 2008 UTC
# Line 225  Return NIL if the symbol is unbound." Line 225  Return NIL if the symbol is unbound."
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)
229      (setq *debugger-hook* function)
230      (setf (env:environment) (slime-env function '())))
231    
232  (defvar *sldb-top-frame*)  (defvar *sldb-top-frame*)
233    
234  (defun interesting-frame-p (frame)  (defun interesting-frame-p (frame)

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

  ViewVC Help
Powered by ViewVC 1.1.5