From b6062c274b3fa530462878d12527a58674ffaed8 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Tue, 8 Jan 2008 05:11:55 +0100 Subject: [PATCH] Add symbol macro +DEFAULT-INET-FAMILY+. Signed-off-by: Stelian Ionescu --- sockets/base-sockets.lisp | 5 ++++- sockets/make-socket.lisp | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/sockets/base-sockets.lisp b/sockets/base-sockets.lisp index d98cb84..5d755d7 100644 --- a/sockets/base-sockets.lisp +++ b/sockets/base-sockets.lisp @@ -51,8 +51,11 @@ (defgeneric disconnect (socket)) +(define-symbol-macro +default-inet-family+ + (if *ipv6* :ipv6 :ipv4)) + (defclass internet-socket (socket) () - (:default-initargs :family (if *ipv6* :ipv6 :ipv4))) + (:default-initargs :family +default-inet-family+)) (defclass local-socket (socket) () (:default-initargs :family :local)) diff --git a/sockets/make-socket.lisp b/sockets/make-socket.lisp index 2f48374..8983489 100644 --- a/sockets/make-socket.lisp +++ b/sockets/make-socket.lisp @@ -276,7 +276,7 @@ remaining address list as the second return value." ((:local :datagram) '%make-local-datagram-socket))) (newargs (remove-properties args '(:family :type :connect :external-format :ipv6)))) (case family - (:internet (setf family `(if *ipv6* :ipv6 :ipv4))) + (:internet (setf family '+default-inet-family+)) (:ipv4 (setf ipv6 nil))) `(let ((*ipv6* ,ipv6)) (,lower-function (list ,@newargs) ,family ,external-format)))) -- 2.11.4.GIT