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