Unverified Commit e39462ec authored by Chun Tian (binghe)'s avatar Chun Tian (binghe)
Browse files

[LW] socket-shutdown on stream-usocket need to pass the stream to...

[LW] socket-shutdown on stream-usocket need to pass the stream to comm:socket-stream-shutdown (rather than the socket) #59
parent 4668745b
......@@ -545,8 +545,8 @@
(unless (member direction '(:input :output :io))
(error 'invalid-argument-error))
(with-mapped-conditions (usocket)
#-(or lispworks4 lispworks5 lispworks6)
(comm:socket-stream-shutdown (socket usocket) direction)
#-(or lispworks4 lispworks5 lispworks6) ; lispworks 7+
(comm:socket-stream-shutdown (socket-stream usocket) direction)
#+(or lispworks4 lispworks5 lispworks6)
(let ((what (case direction
(:input +shutdown-read+)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment