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

Diff of /slime/swank.lisp

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

revision 1.408 by heller, Thu Oct 19 12:29:09 2006 UTC revision 1.409 by mbaringer, Fri Oct 20 00:14:07 2006 UTC
# Line 405  Valid values are :none, :line, and :full Line 405  Valid values are :none, :line, and :full
405                       dont-close (external-format *coding-system*))                       dont-close (external-format *coding-system*))
406    "Start the server and write the listen port number to PORT-FILE.    "Start the server and write the listen port number to PORT-FILE.
407  This is the entry point for Emacs."  This is the entry point for Emacs."
408    (when (eq style :spawn)    (flet ((start-server-aux ()
409      (initialize-multiprocessing))             (setup-server 0 (lambda (port) (announce-server-port port-file port))
410    (setup-server 0 (lambda (port) (announce-server-port port-file port))                           style dont-close external-format)
411                  style dont-close external-format)             (when (eq style :spawn)
412    (when (eq style :spawn)               (startup-idle-and-top-level-loops))))
413      (startup-idle-and-top-level-loops)))      (if (eq style :spawn)
414            (initialize-multiprocessing #'start-server-aux)
415            (start-server-aux))))
416    
417  (defun create-server (&key (port default-server-port)  (defun create-server (&key (port default-server-port)
418                        (style *communication-style*)                        (style *communication-style*)

Legend:
Removed from v.1.408  
changed lines
  Added in v.1.409

  ViewVC Help
Powered by ViewVC 1.1.5