From 269a1f7cd23445f3e3f9cd9fd96dbcf0174dd146 Mon Sep 17 00:00:00 2001 From: Strigoides Date: Sat, 27 Apr 2013 07:43:05 +1200 Subject: [PATCH] Add :TEST keyword arg to ASSOC --- src/boot.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/boot.lisp b/src/boot.lisp index de32e75..45a8809 100644 --- 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)) -- 1.7.10.4