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

Diff of /slime/swank-ecl.lisp

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

revision 1.70 by heller, Sun Nov 6 18:34:51 2011 UTC revision 1.71 by heller, Sun Nov 27 21:47:15 2011 UTC
# Line 62  Line 62 
62    (car (sb-bsd-sockets:host-ent-addresses    (car (sb-bsd-sockets:host-ent-addresses
63          (sb-bsd-sockets:get-host-by-name name))))          (sb-bsd-sockets:get-host-by-name name))))
64    
65  (defimplementation create-socket (host port)  (defimplementation create-socket (host port &key backlog)
66    (let ((socket (make-instance 'sb-bsd-sockets:inet-socket    (let ((socket (make-instance 'sb-bsd-sockets:inet-socket
67                                 :type :stream                                 :type :stream
68                                 :protocol :tcp)))                                 :protocol :tcp)))
69      (setf (sb-bsd-sockets:sockopt-reuse-address socket) t)      (setf (sb-bsd-sockets:sockopt-reuse-address socket) t)
70      (sb-bsd-sockets:socket-bind socket (resolve-hostname host) port)      (sb-bsd-sockets:socket-bind socket (resolve-hostname host) port)
71      (sb-bsd-sockets:socket-listen socket 5)      (sb-bsd-sockets:socket-listen socket (or backlog 5))
72      socket))      socket))
73    
74  (defimplementation local-port (socket)  (defimplementation local-port (socket)

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.5