Commit 42bda815 authored by Attila Lendvai's avatar Attila Lendvai
Browse files

Return remote peer address in sbcl accept-connection

darcs-hash:c31b76a06fa8bcc98da15924ef08d6c7e0c3bdbb
parent 97faf0a9
Loading
Loading
Loading
Loading
+6 −5
Original line number Diff line number Diff line
@@ -58,9 +58,10 @@
			  (element-type 'character))
  (unless (eql external-format :default)
    (error 'unsupported :feature :external-format))
  (let ((s (sb-bsd-sockets:socket-accept socket)))
    (sb-bsd-sockets:socket-make-stream s
  (multiple-value-bind (s peer) (sb-bsd-sockets:socket-accept socket)
    (values (sb-bsd-sockets:socket-make-stream s
                                               :input t :output t
                                               :element-type element-type
				       :buffering :full)))
                                               :buffering :full)
            peer)))