From e9f670d44cb0b3fb2cf73d3a14e577226180e69b Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 4 Oct 2012 22:49:02 -0400
Subject: [PATCH] Fix bug in current-hostname-p

---
 host.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/host.lisp b/host.lisp
index ca36b06..d066986 100644
--- a/host.lisp
+++ b/host.lisp
@@ -5,7 +5,7 @@
 (defparameter *current-host-names* '("localhost"))
 
 (defun current-host-name-p (x)
-  (and (stringp x) (member x *current-host-names*)))
+  (and (stringp x) (member x *current-host-names* :test 'equal)))
 
 (defun initialize-current-host-names ()
   (setf *current-host-names*
-- 
GitLab