(assq-delete-all): Removed the compiler macro.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3345d65..7ee7e90 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * dgnushack.el (assq-delete-all): Removed the compiler macro.
+
 2003-05-14  Kevin Greiner <kgreiner@xpediantsolutions.com>
 
        * gnus-agent.el (gnus-agentize): Updated documentation to match

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 1064b5f..0b88fd1 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -50,18 +50,6 @@
 
 ;; Define compiler macros for the functions provided by cl in old Emacsen.
 (unless (featurep 'xemacs)
-  (define-compiler-macro assq-delete-all (&whole form key alist)
-    (if (>= emacs-major-version 21)
-       form
-      `(let* ((key ,key)
-             (alist ,alist)
-             (tail alist))
-        (while tail
-          (if (and (consp (car tail)) (eq (car (car tail)) key))
-              (setq alist (delq (car tail) alist)))
-          (setq tail (cdr tail)))
-        alist)))
-
   (define-compiler-macro butlast (&whole form x &optional n)
     (if (>= emacs-major-version 21)
        form