Merge https://github.com/Strigoides/jscl into pull-requests

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index 0af19f4..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))
@@ -681,8 +681,8 @@
                                     (integer 'integerp)
                                     (cons 'consp)
                                     (symbol 'symbolp)
-                                    (string 'stringp)
                                     (array 'arrayp)
+                                    (string 'stringp)
                                     (atom 'atom)
                                     (null 'null))
                              ,value)