From 84e5fde5aa2451a43545ff809fab21c6cf7fac3a Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Sat, 7 Jul 2007 00:52:46 +0300
Subject: [PATCH] Make define-constant understand :test 'string

---
 definitions.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/definitions.lisp b/definitions.lisp
index b1667c2..a023957 100644
--- a/definitions.lisp
+++ b/definitions.lisp
@@ -10,6 +10,9 @@ Signals an error if NAME is already a bound non-constant variable.
 
 Signals an error if NAME is already a constant variable whose value is not
 equal under TEST to result of evaluating INITIAL-VALUE."
+  (when (and (consp test)
+             (member (first test) '(quote function)))
+    (setf test (second test)))
   `(defconstant ,name
      (let ((new ,initial-value))
        (if (boundp ',name)
-- 
2.11.4.GIT