Remove old FIND

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index 78d8d08..a6b08a9 100644 (file)
--- 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)