X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Flist.lisp;h=c0370b77f65ab65e47c6dbdcc974793ec851e8e0;hb=e2040ea9a5d5794b68a34277d459d52b475d6eff;hp=c44907f1443e625561ff253ff5567fe6d6b34c30;hpb=6432dcb404266426cd0cbec1a47ec7d4a42b23af;p=jscl.git

diff --git a/src/list.lisp b/src/list.lisp
index c44907f..c0370b7 100644
--- a/src/list.lisp
+++ b/src/list.lisp
@@ -216,9 +216,11 @@
       (setq alist (cdr alist))))
   (car alist))
 
-(defun rassoc (x alist &key (test #'eql))
+(defun rassoc (x alist &key key (test #'eql) (test #'eql testp)
+                 (test-not #'eql test-not-p))
   (while alist
-    (if (funcall test x (cdar alist))
+    (if (satisfies-test-p x (cdar alist) :key key :test test :testp testp
+                          :test-not test-not :test-not-p test-not-p)
       (return)
       (setq alist (cdr alist))))
   (car alist))