mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-15 15:21:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in assertion

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-27 20:05:07 +02:00
parent 3c8b734b61
commit 747fddfecf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
contrib/sockets/sockets.lisp
View file

@ -209,8 +209,8 @@ weird stuff - see gethostbyname(3) for grisly details."
(name-service-error "get-host-by-name"))))
(defun get-host-by-address (address)
(assert (typep address 'vector)
(and (= (length address) 4)))
(assert (and (typep address 'vector)
(= (length address) 4)))
(let ((host-ent (make-instance 'host-ent)))
(if
(c-inline (address host-ent