From 33b72df429a3f9f75061d3058267efaaef756530 Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Fri, 12 Feb 2010 12:54:21 +0200
Subject: [PATCH] fix: (push (assoc-value ... :test 'foo) ...) ignored :test
 when looking up the value

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

diff --git a/lists.lisp b/lists.lisp
index 19721a0..77ee14c 100644
--- a/lists.lisp
+++ b/lists.lisp
@@ -53,7 +53,7 @@ property list PLIST in the same order."
                                     (setf ,(first newvals) (,',add ,key ,store ,alist))
                                     ,setter)))
                            ,store))
-                      `(,',name ,getter ,key))))))))
+                      `(,',name ,getter ,key :test ,test-val))))))))
  (define-alist-get assoc-value assoc cdr acons
 "ASSOC-VALUE is an alist accessor very much like ASSOC, but it can
 be used with SETF.")
-- 
GitLab