projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.8.8: restore reuse-sap value after incomplete writes in FROB-OUTPUT-LATER
[sbcl.git]
/
contrib
/
sb-bsd-sockets
/
sockets.lisp
diff --git
a/contrib/sb-bsd-sockets/sockets.lisp
b/contrib/sb-bsd-sockets/sockets.lisp
index
554d11b
..
e9fa645
100644
(file)
--- a/
contrib/sb-bsd-sockets/sockets.lisp
+++ b/
contrib/sb-bsd-sockets/sockets.lisp
@@
-20,7
+20,7
@@
protocol. Other values are used as-is.")
:reader socket-type
:documentation "Type of the socket: :STREAM or :DATAGRAM.")
(stream))
:reader socket-type
:documentation "Type of the socket: :STREAM or :DATAGRAM.")
(stream))
- (:documentation "Common base class of all sockets, not ment to be
+ (:documentation "Common base class of all sockets, not meant to be
directly instantiated.")))
(defmethod print-object ((object socket) stream)
directly instantiated.")))
(defmethod print-object ((object socket) stream)
@@
-356,7
+356,7
@@
SB-SYS:MAKE-FD-STREAM."))
(unless stream
(setf stream (apply #'sb-sys:make-fd-stream
(socket-file-descriptor socket)
(unless stream
(setf stream (apply #'sb-sys:make-fd-stream
(socket-file-descriptor socket)
- :name "a constant string"
+ :name "a socket"
:dual-channel-p t
args))
(setf (slot-value socket 'stream) stream)
:dual-channel-p t
args))
(setf (slot-value socket 'stream) stream)