From b9929362617b667a2d9cf4d1387a25f738c35211 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Mon, 6 May 2013 14:11:24 +0100 Subject: [PATCH] Remove old FIND --- src/boot.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 1.7.10.4