From 0d2b9b5c658672af37df8a255872299587d08456 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Thu, 17 Jan 2008 22:51:42 +0100 Subject: [PATCH] Small fix. Signed-off-by: Stelian Ionescu --- sockets/make-socket.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sockets/make-socket.lisp b/sockets/make-socket.lisp index 1508202..4563e01 100644 --- a/sockets/make-socket.lisp +++ b/sockets/make-socket.lisp @@ -269,7 +269,7 @@ remaining address list as the second return value." ((:local :stream :passive) '%make-local-stream-passive-socket) (((:ipv4 :ipv6 :internet) :datagram) '%make-internet-datagram-socket) ((:local :datagram) '%make-local-datagram-socket))) - (newargs (remove-from-plist args '(:family :type :connect :external-format :ipv6)))) + (newargs (remove-from-plist args :family :type :connect :external-format :ipv6))) (case family (:internet (setf family '+default-inet-family+)) (:ipv4 (setf ipv6 nil))) -- 2.11.4.GIT