Merge branch 'master' of https://github.com/davazp/jscl

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index 3a9ce45..8ff77d1 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -553,9 +553,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))