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

Diff of /slime/swank-scl.lisp

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

revision 1.40 by heller, Sat Apr 7 10:23:39 2012 UTC revision 1.41 by dcrosher, Tue Apr 24 11:08:13 2012 UTC
# Line 29  Line 29 
29  (defimplementation create-socket (host port &key backlog)  (defimplementation create-socket (host port &key backlog)
30    (let ((addr (resolve-hostname host)))    (let ((addr (resolve-hostname host)))
31      (ext:create-inet-listener port :stream :host addr :reuse-address t      (ext:create-inet-listener port :stream :host addr :reuse-address t
32                                :backlog (or backend 5))))                                :backlog (or backlog 5))))
33    
34  (defimplementation local-port (socket)  (defimplementation local-port (socket)
35    (nth-value 1 (ext::get-socket-host-and-port (socket-fd socket))))    (nth-value 1 (ext::get-socket-host-and-port (socket-fd socket))))

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

  ViewVC Help
Powered by ViewVC 1.1.5