X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fboot.lisp;h=a6b08a9c99f7dc69e1339c83bc72b709febe3468;hb=b9929362617b667a2d9cf4d1387a25f738c35211;hp=78d8d080fb2cd42b1cf7c0eec9ffbd6fb499b630;hpb=e14753c04f867bc0fa82dd78f2d01ec140c2c72b;p=jscl.git

diff --git a/src/boot.lisp b/src/boot.lisp
index 78d8d08..a6b08a9 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -493,10 +493,10 @@
          (t
           (error "type-error!"))))))
 
-(defun find (item sequence &key (key #'identity) (test #'eql))
-  (do-sequence (x sequence)
-    (when (funcall test (funcall key x) item)
-      (return x))))
+;; (defun find (item sequence &key (key #'identity) (test #'eql))
+;;   (do-sequence (x sequence)
+;;     (when (funcall test (funcall key x) item)
+;;       (return x))))
 
 (defun find-if (predicate sequence &key (key #'identity))
   (do-sequence (x sequence)