From e9b19a2127fe6f09f67e2ec5987971dc780eec60 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Wed, 2 Jan 2008 17:33:44 +0100 Subject: [PATCH] Use EQ instead of EQL in a few places. Signed-off-by: Stelian Ionescu --- sockets/socket-methods.lisp | 6 +++--- sockets/trivial-sockets.lisp | 8 ++++---- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/sockets/socket-methods.lisp b/sockets/socket-methods.lisp index 926f103..0b2365d 100644 --- a/sockets/socket-methods.lisp +++ b/sockets/socket-methods.lisp @@ -52,7 +52,7 @@ (:datagram sock-dgram))) (sp (cond ((integerp protocol) protocol) - ((eql protocol :default) 0) + ((eq protocol :default) 0) (t (lookup-protocol protocol))))) (values sf st sp))) @@ -233,7 +233,7 @@ (defmethod bind-address ((socket internet-socket) (address ipv4-address) &key (port 0)) - (if (eql (socket-family socket) :ipv6) + (if (eq (socket-family socket) :ipv6) (bind-ipv6-address (fd-of socket) (map-ipv4-vector-to-ipv6 (address-name address)) port) @@ -303,7 +303,7 @@ (defmethod connect ((socket internet-socket) (address ipv4-address) &key (port 0)) - (if (eql (socket-family socket) :ipv6) + (if (eq (socket-family socket) :ipv6) (ipv6-connect (fd-of socket) (map-ipv4-vector-to-ipv6 (address-name address)) port) diff --git a/sockets/trivial-sockets.lisp b/sockets/trivial-sockets.lisp index dbc87ea..b803cf1 100644 --- a/sockets/trivial-sockets.lisp +++ b/sockets/trivial-sockets.lisp @@ -58,7 +58,7 @@ (defun resolve-hostname (name) (let ((net.sockets:*ipv6* nil)) (cond - ((eql name :any) net.sockets:+ipv4-unspecified+) + ((eq name :any) net.sockets:+ipv4-unspecified+) (t (nth-value 0 (net.sockets:convert-or-lookup-inet-address name)))))) (defun open-stream (peer-host peer-port &key @@ -67,7 +67,7 @@ (element-type 'character) (protocol :tcp)) (declare (ignore element-type)) - (unless (eql protocol :tcp) + (unless (eq protocol :tcp) (error 'unsupported :feature `(:protocol ,protocol))) (let ((net.sockets:*ipv6* nil)) (handler-bind ((error (lambda (c) (error 'socket-error :nested-error c)))) @@ -85,11 +85,11 @@ (backlog 1) (protocol :tcp)) "Returns a SERVER object and the port that was bound, as multiple values." - (unless (eql protocol :tcp) + (unless (eq protocol :tcp) (error 'unsupported :feature `(:protocol ,protocol))) (let ((net.sockets:*ipv6* nil)) (handler-bind ((error (lambda (c) (error 'socket-error :nested-error c)))) - (let* ((host (if (eql host :any) net.sockets:+ipv4-unspecified+ host)) + (let* ((host (if (eq host :any) net.sockets:+ipv4-unspecified+ host)) (socket (net.sockets:make-socket :family :internet :type :stream :connect :passive -- 2.11.4.GIT