From: David Vázquez <davazp@gmail.com>
Date: Mon, 6 May 2013 13:11:24 +0000 (+0100)
Subject: Remove old FIND
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b9929362617b667a2d9cf4d1387a25f738c35211;p=jscl.git

Remove old FIND
---

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)