From: Dave Love <fx@gnu.org>
Date: Wed, 23 Aug 2000 14:41:06 +0000 (+0000)
Subject: Remove `member-if' compiler macro.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=650de3729dedb63da91c1bf926bf204fd01494dd

Remove `member-if' compiler macro.
---

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index f20cdf827..7d036528a 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -84,17 +84,6 @@
 	     (setq arg (cdr arg)))
 	   (apply (function nconc) (nreverse res))))))
 
-  (define-compiler-macro member-if (&whole form pred list)
-    (if (and (fboundp 'member-if)
-	     (subrp (symbol-function 'member-if)))
-	form
-      `(let ((fn ,pred)
-	     (seq ,list))
-	 (while (and seq
-		     (not (funcall fn (car seq))))
-	   (pop seq))
-	 seq)))
-
   (define-compiler-macro union (&whole form list1 list2)
     (if (and (fboundp 'union)
 	     (subrp (symbol-function 'union)))