[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl.el

[Juanma Barranquero]

Index: emacs/lisp/emacs-lisp/cl.el
diff -c emacs/lisp/emacs-lisp/cl.el:1.40 emacs/lisp/emacs-lisp/cl.el:1.41
*** emacs/lisp/emacs-lisp/cl.el:1.40    Sat Oct 16 15:21:10 2004
--- emacs/lisp/emacs-lisp/cl.el Tue May 17 00:26:26 2005
***************
*** 115,121 ****
  ;;; Predicates.
  
  (defun eql (a b)    ; See compiler macro in cl-macs.el
!   "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)
--- 115,121 ----
  ;;; 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)
***************
*** 301,325 ****
  ;;; Numbers.
  
  (defun floatp-safe (x)
!   "T if OBJECT is a floating point number.
  On Emacs versions that lack floating-point support, this function
  always returns nil."
    (and (numberp x) (not (integerp x))))
  
  (defun plusp (x)
!   "T if NUMBER is positive."
    (> x 0))
  
  (defun minusp (x)
!   "T if NUMBER is negative."
    (< x 0))
  
  (defun oddp (x)
!   "T if INTEGER is odd."
    (eq (logand x 1) 1))
  
  (defun evenp (x)
!   "T if INTEGER is even."
    (eq (logand x 1) 0))
  
  (defvar *random-state* (vector 'cl-random-state-tag -1 30 (cl-random-time)))
--- 301,325 ----
  ;;; Numbers.
  
  (defun floatp-safe (x)
!   "Return t if OBJECT is a floating point number.
  On Emacs versions that lack floating-point support, this function
  always returns nil."
    (and (numberp x) (not (integerp x))))
  
  (defun plusp (x)
!   "Return t if NUMBER is positive."
    (> x 0))
  
  (defun minusp (x)
!   "Return t if NUMBER is negative."
    (< x 0))
  
  (defun oddp (x)
!   "Return t if INTEGER is odd."
    (eq (logand x 1) 1))
  
  (defun evenp (x)
!   "Return t if INTEGER is even."
    (eq (logand x 1) 0))
  
  (defvar *random-state* (vector 'cl-random-state-tag -1 30 (cl-random-time)))
***************
*** 503,509 ****
  ;;    x))
  
  (defun list* (arg &rest rest)   ; See compiler macro in cl-macs.el
!   "Return a new list with specified args as elements, cons'd to last arg.
  Thus, `(list* A B C D)' is equivalent to `(nconc (list A B C) D)', or to
  `(cons A (cons B (cons C D)))'."
    (cond ((not rest) arg)
--- 503,509 ----
  ;;    x))
  
  (defun list* (arg &rest rest)   ; See compiler macro in cl-macs.el
!   "Return a new list with specified args as elements, consed to last arg.
  Thus, `(list* A B C D)' is equivalent to `(nconc (list A B C) D)', or to
  `(cons A (cons B (cons C D)))'."
    (cond ((not rest) arg)