/[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.14 by lgorrie, Sat Oct 25 01:54:00 2003 UTC revision 1.15 by heller, Wed Oct 29 23:53:55 2003 UTC
# Line 81  Line 81 
81  (defun serve-request (*emacs-io*)  (defun serve-request (*emacs-io*)
82    "Read and process a request from a SWANK client.    "Read and process a request from a SWANK client.
83  The request is read from the socket as a sexp and then evaluated."  The request is read from the socket as a sexp and then evaluated."
84    (let* ((completed nil)    (catch 'slime-toplevel
85           (*slime-output* (make-instance 'slime-output-stream))      (let* ((*slime-output* (make-instance 'slime-output-stream))
86           (*slime-input* *standard-input*)             (*slime-input* *standard-input*)
87           (*slime-io* (make-two-way-stream *slime-input* *slime-output*)))             (*slime-io* (make-two-way-stream *slime-input* *slime-output*)))
88      (let ((condition (catch 'serve-request-catcher        (handler-case (read-from-emacs)
89                         (read-from-emacs)          (slime-read-error (e)
90                         (setq completed t))))            (when *swank-debug-p*
91        (unless completed              (format *debug-io* "~&;; Connection to Emacs lost.~%;; [~A]~%" e))
92          (when *swank-debug-p*            (sb-sys:invalidate-descriptor (sb-sys:fd-stream-fd *emacs-io*))
93            (format *debug-io*            (close *emacs-io*))))))
                   "~&;; Connection to Emacs lost.~%;; [~A]~%" condition))  
         (sb-sys:invalidate-descriptor (sb-sys:fd-stream-fd *emacs-io*))  
         (close *emacs-io*)))))  
94    
95    
96  #|  #|
# Line 601  stack." Line 598  stack."
598  (defslimefun invoke-nth-restart (index)  (defslimefun invoke-nth-restart (index)
599    (invoke-restart (nth-restart index)))    (invoke-restart (nth-restart index)))
600    
 (defslimefun sldb-continue ()  
   (continue *swank-debugger-condition*))  
   
601  (defslimefun sldb-abort ()  (defslimefun sldb-abort ()
602    (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))    (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))
603    
 (defslimefun throw-to-toplevel ()  
   (invoke-restart  
    (find 'sb-impl::toplevel *sldb-restarts* :key #'restart-name)))  
   
604  ;;; Local Variables:  ;;; Local Variables:
605  ;;; eval: (font-lock-add-keywords 'lisp-mode '(("(\\(defslimefun\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)"  (1 font-lock-keyword-face) (2 font-lock-function-name-face))))  ;;; eval: (font-lock-add-keywords 'lisp-mode '(("(\\(defslimefun\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)"  (1 font-lock-keyword-face) (2 font-lock-function-name-face))))
606  ;;; End:  ;;; End:

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5