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

Diff of /slime/swank.lisp

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

revision 1.349 by heller, Sun Oct 30 15:07:07 2005 UTC revision 1.350 by heller, Mon Oct 31 08:22:11 2005 UTC
# Line 696  of the toplevel restart." Line 696  of the toplevel restart."
696    
697  (defun simple-serve-requests (connection)  (defun simple-serve-requests (connection)
698    (with-reader-error-handler (connection)    (with-reader-error-handler (connection)
699      (unwind-protect (loop (handle-request connection))      (unwind-protect (loop (with-simple-restart
700                                  (abort "Return to SLIME top-level.")
701                                (handle-request connection)))
702        (close-connection connection))))        (close-connection connection))))
703    
704  (defun read-from-socket-io ()  (defun read-from-socket-io ()
# Line 1085  PACKAGE: a list (&key NAME PROMPT)" Line 1087  PACKAGE: a list (&key NAME PROMPT)"
1087    (setq *slime-features* *features*)    (setq *slime-features* *features*)
1088    `(:pid ,(getpid) :style ,(connection.communication-style *emacs-connection*)    `(:pid ,(getpid) :style ,(connection.communication-style *emacs-connection*)
1089      :lisp-implementation (:type ,(lisp-implementation-type)      :lisp-implementation (:type ,(lisp-implementation-type)
1090                            :type-name ,(lisp-implementation-type-name)                            :name ,(lisp-implementation-type-name)
1091                            :version ,(lisp-implementation-version))                            :version ,(lisp-implementation-version))
1092      :machine (:instance ,(machine-instance)      :machine (:instance ,(machine-instance)
1093                :type ,(machine-type)                :type ,(machine-type)

Legend:
Removed from v.1.349  
changed lines
  Added in v.1.350

  ViewVC Help
Powered by ViewVC 1.1.5