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

contrib/sockets/sockets.lisp: two more typos fixed (Chun Tian)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-10-17 21:41:51 +02:00
parent 7d0e542de1
commit 25e7849e2b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
contrib/sockets/sockets.lisp
View file

@ -1400,10 +1400,10 @@ GET-NAME-SERVICE-ERRNO")
ret = getsockopt(#0,#1,#2,&sockopt,&socklen);
ecl_enable_interrupts();
@(return) = (ret == 0) ? Ct : Cnil;
@(return) = (ret == 0) ? ecl_make_integer(sockopt) : Cnil;
}")))
(if ret
ret
(/= ret 0)
(error "Sockopt error: ~A" (c-inline () () :cstring "strerror(errno)" :one-liner t)))))
#+wsock
@ -1458,7 +1458,7 @@ GET-NAME-SERVICE-ERRNO")
@(return) = (ret == 0) ? Ct : Cnil;
}")))
(if ret
ret
value
(error "Sockopt error: ~A" (c-inline () () :cstring "strerror(errno)" :one-liner t)))))
#-wsock