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

Diff of /slime/swank.lisp

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

revision 1.763 by heller, Sun Nov 27 19:24:33 2011 UTC revision 1.764 by heller, Sun Nov 27 21:47:15 2011 UTC
# Line 733  Valid values are nil, t, :line") Line 733  Valid values are nil, t, :line")
733  This is the entry point for Emacs."  This is the entry point for Emacs."
734    (setup-server 0    (setup-server 0
735                  (lambda (port) (announce-server-port port-file port))                  (lambda (port) (announce-server-port port-file port))
736                  style dont-close))                  style dont-close nil))
737    
738  (defun create-server (&key (port default-server-port)  (defun create-server (&key (port default-server-port)
739                          (style *communication-style*)                          (style *communication-style*)
740                          (dont-close *dont-close*))                          (dont-close *dont-close*)
741                            backlog)
742    "Start a SWANK server on PORT running in STYLE.    "Start a SWANK server on PORT running in STYLE.
743  If DONT-CLOSE is true then the listen socket will accept multiple  If DONT-CLOSE is true then the listen socket will accept multiple
744  connections, otherwise it will be closed after the first."  connections, otherwise it will be closed after the first."
745    (setup-server port #'simple-announce-function    (setup-server port #'simple-announce-function
746                  style dont-close))                  style dont-close backlog))
747    
748  (defun find-external-format-or-lose (coding-system)  (defun find-external-format-or-lose (coding-system)
749    (or (find-external-format coding-system)    (or (find-external-format coding-system)
# Line 750  connections, otherwise it will be closed Line 751  connections, otherwise it will be closed
751    
752  (defparameter *loopback-interface* "127.0.0.1")  (defparameter *loopback-interface* "127.0.0.1")
753    
754  (defun setup-server (port announce-fn style dont-close)  (defun setup-server (port announce-fn style dont-close backlog)
755    (declare (type function announce-fn))    (declare (type function announce-fn))
756    (init-log-output)    (init-log-output)
757    (let* ((socket (create-socket *loopback-interface* port))    (let* ((socket (create-socket *loopback-interface* port :backlog backlog))
758           (local-port (local-port socket)))           (local-port (local-port socket)))
759      (funcall announce-fn local-port)      (funcall announce-fn local-port)
760      (flet ((serve ()      (flet ((serve ()

Legend:
Removed from v.1.763  
changed lines
  Added in v.1.764

  ViewVC Help
Powered by ViewVC 1.1.5