mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-21 14:40:22 -08:00
Code Issues Projects Releases Packages Wiki Activity

User might not have provided the value of slot :TYPE

Browse source
This commit is contained in:
jjgarcia 2005-02-17 13:40:35 +00:00
parent 99acd6092f
commit fa7d62304b
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
contrib/sockets/sockets.lisp
View file

@ -293,8 +293,7 @@ directly instantiated."))
proto-num))))
(if (= fd -1) (socket-error "socket"))
(setf (slot-value socket 'file-descriptor) fd
(slot-value socket 'protocol) proto-num
(slot-value socket 'type) type)
(slot-value socket 'protocol) proto-num)
#+ ignore
(sb-ext:finalize socket (lambda () (sockint::close fd)))))