Loading sbcl.lisp +6 −5 Original line number Diff line number Diff line Loading @@ -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))) Loading
sbcl.lisp +6 −5 Original line number Diff line number Diff line Loading @@ -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)))