From 8a34100f9a7933431a5b252f0f68b4f2cfa47a91 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Fri, 28 Mar 2008 02:32:14 +0100 Subject: [PATCH] Clearer %CREATE-INTERNET-SOCKET. Signed-off-by: Stelian Ionescu --- net.sockets/make-socket.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/net.sockets/make-socket.lisp b/net.sockets/make-socket.lisp index a216a99..4c5ee4e 100644 --- a/net.sockets/make-socket.lisp +++ b/net.sockets/make-socket.lisp @@ -53,8 +53,8 @@ If a non-local exit occurs during the execution of `BODY' call CLOSE with :ABORT (defmacro %create-internet-socket (family &rest args) `(case ,family - ,@(loop :for f :in '(:ipv4 :ipv6) :collect - `(,f (create-socket ,f ,@args))))) + (:ipv4 (create-socket :ipv4 ,@args)) + (:ipv6 (create-socket :ipv6 ,@args)))) (defmacro with-guard-again-non-list-args-and-destructuring-bind-errors (form args &body body) -- 2.11.4.GIT