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