Add :TEST keyword arg to ASSOC

diff --git a/src/boot.lisp b/src/boot.lisp
index de32e75..45a8809 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -552,9 +552,9 @@
       (incf pos))
     pos))
 
-(defun assoc (x alist)
+(defun assoc (x alist &key (test #'eql))
   (while alist
-    (if (eql x (caar alist))
+    (if (funcall test x (caar alist))
         (return)
         (setq alist (cdr alist))))
   (car alist))