/[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.107 by heller, Wed Oct 27 10:57:43 2004 UTC revision 1.108 by heller, Mon Nov 15 23:07:37 2004 UTC
# Line 131  Line 131 
131              (return (sb-bsd-sockets:socket-accept socket))              (return (sb-bsd-sockets:socket-accept socket))
132            (sb-bsd-sockets:interrupted-error ()))))            (sb-bsd-sockets:interrupted-error ()))))
133    
134  (defimplementation emacs-connected (stream)  (defimplementation emacs-connected ()
   (declare (ignore stream))  
135    (setq sb-ext:*invoke-debugger-hook*    (setq sb-ext:*invoke-debugger-hook*
136          (find-symbol (string :swank-debugger-hook) (find-package :swank))))          (find-symbol (string :swank-debugger-hook) (find-package :swank))))
137    

Legend:
Removed from v.1.107  
changed lines
  Added in v.1.108

  ViewVC Help
Powered by ViewVC 1.1.5