Commit 33b72df4 authored by Attila Lendvai's avatar Attila Lendvai
Browse files

fix: (push (assoc-value ... :test 'foo) ...) ignored :test when looking up the value

parent 66deaba2
......@@ -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.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment