diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-05-22 20:15:05 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-05-22 20:15:05 +0000 |
| commit | 6cd0254fe9957d0e4ffd769af5332f828b75428d (patch) | |
| tree | bdd4de71c4dd68b69d80b545d7e1ed9779292380 /lisp/emacs-lisp/cl.el | |
| parent | 3187ba1c4f28d6d24a4a843ca0166ec868486fc8 (diff) | |
| download | emacs-6cd0254fe9957d0e4ffd769af5332f828b75428d.tar.gz | |
(eql): Remove. It's a builtin already.
Diffstat (limited to 'lisp/emacs-lisp/cl.el')
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 12 |
1 files changed, 1 insertions, 11 deletions
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 |