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

Diff of /slime/swank.lisp

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

revision 1.341 by heller, Thu Sep 22 20:23:42 2005 UTC revision 1.342 by heller, Tue Sep 27 22:44:28 2005 UTC
# Line 341  Useful for low level debugging." Line 341  Useful for low level debugging."
341                       dont-close (external-format *coding-system*))                       dont-close (external-format *coding-system*))
342    "Start the server and write the listen port number to PORT-FILE.    "Start the server and write the listen port number to PORT-FILE.
343  This is the entry point for Emacs."  This is the entry point for Emacs."
344      (when (eq style :spawn)
345        (initialize-multiprocessing))
346    (setup-server 0 (lambda (port) (announce-server-port port-file port))    (setup-server 0 (lambda (port) (announce-server-port port-file port))
347                  style dont-close external-format))                  style dont-close external-format)
348      (when (eq style :spawn)
349        (startup-idle-and-top-level-loops)))
350    
351  (defun create-server (&key (port default-server-port)  (defun create-server (&key (port default-server-port)
352                        (style *communication-style*)                        (style *communication-style*)
# Line 3982  nil if there's no second element." Line 3986  nil if there's no second element."
3986               nil)               nil)
3987              (t (inspect-object (aref *inspector-history* (1+ position))))))))              (t (inspect-object (aref *inspector-history* (1+ position))))))))
3988    
3989    (defslimefun inspector-reinspect ()
3990      (inspect-object *inspectee*))
3991    
3992  (defslimefun quit-inspector ()  (defslimefun quit-inspector ()
3993    (reset-inspector)    (reset-inspector)
3994    nil)    nil)

Legend:
Removed from v.1.341  
changed lines
  Added in v.1.342

  ViewVC Help
Powered by ViewVC 1.1.5