(eql): Remove. It's a builtin already.

2 files changed, 7 insertions, 13 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58dcb5f6ca2..12d0697044b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-05-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/cl.el (eql): Remove.  It's a builtin already.
+
 2005-05-22  Richard M. Stallman  <rms@gnu.org>
 
         * help.el (describe-key): Move print-help-return-message call
@@ -105,8 +109,8 @@
         for describing the structure was 95% identical to that of
         `imenu--generic-function'.  Unify it there.
 
-        * progmodes/make-mode.el (makefile-imenu-generic-expression): Use
-        function to find dependencies, because regexp alone is so complex,
+        * progmodes/make-mode.el (makefile-imenu-generic-expression):
+        Use function to find dependencies, because regexp alone is so complex,
         it easily goes into an endless loop.
         (makefile-makepp-mode): Also add submenu for Perl functions
         defined in the makefile.
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 8385af601af..704d3f8dcd9 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -112,16 +112,6 @@ a future Emacs interpreter will be able to use it.")
 (defun cl-cannot-unload ()
   (error "Cannot unload the feature `cl'"))
 
-;;; Predicates.
-
-(defun eql (a b)    ; See compiler macro in cl-macs.el
-  "Return t if the two args are the same Lisp object.
-Floating-point numbers of equal value are `eql', but they may not be `eq'."
-  (if (numberp a)
-      (equal a b)
-    (eq a b)))
-
-
 ;;; Generalized variables.  These macros are defined here so that they
 ;;; can safely be used in .emacs files.
 
@@ -705,5 +695,5 @@ Return a copy of TREE with all elements `eql' to OLD replaced by NEW.
 
 (run-hooks 'cl-load-hook)
 
-;;; arch-tag: 5f07fa74-f153-4524-9303-21f5be125851
+;; arch-tag: 5f07fa74-f153-4524-9303-21f5be125851
 ;;; cl.el ends here