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

Diff of /slime/swank-lispworks.lisp

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

revision 1.7 by heller, Sun Dec 7 19:16:24 2003 UTC revision 1.8 by heller, Wed Dec 10 13:26:08 2003 UTC
# Line 30  Line 30 
30  (defun without-interrupts* (body)  (defun without-interrupts* (body)
31    (lispworks:without-interrupts (funcall body)))    (lispworks:without-interrupts (funcall body)))
32    
33  (defun create-swank-server (port &key reuse-address)  (defun create-swank-server (port &key (reuse-address t)
34                                (announce #'simple-announce-function))
35    "Create a Swank TCP server on `port'.    "Create a Swank TCP server on `port'.
36  Return the port number that the socket is actually listening on."  Return the port number that the socket is actually listening on."
37    (declare (ignore reuse-address))    (declare (ignore reuse-address))
38    (comm:start-up-server-and-mp :announce *terminal-io* :service port    (flet ((sentinel (socket condition)
39                                 :process-name "Swank Request Processor"             (cond (socket
40                                 :function 'swank-accept-connection                    (let ((port (nth-value 1 (comm:get-socket-address socket))))
41                                 )                      (funcall announce port)))
42    port)                   (t
43                      (format *terminal-io* ";; Swank condition: ~A~%"
44                              condition)))))
45        (comm:start-up-server :announce #'sentinel :service port
46                              :process-name "Swank server"
47                              :function 'swank-accept-connection)))
48    
49  (defconstant +sigint+ 2)  (defconstant +sigint+ 2)
50    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5