changeset 2967:6b62c36ce82e

* cl.el (cl-floor, cl-ceiling, cl-truncate, cl-round): Renamed from floor, ceiling, truncate, and round; the old names conflict with built-in functions.
author Jim Blandy <jimb@redhat.com>
date Sat, 22 May 1993 22:09:25 +0000
parents e936d56c2354
children ee5df97bc4b1
files lisp/=cl.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=cl.el	Sat May 22 22:07:57 1993 +0000
+++ b/lisp/=cl.el	Sat May 22 22:09:25 1993 +0000
@@ -1724,7 +1724,7 @@
                  done   (or (= new approx) (= new (+ approx 1)))
                  approx new)))))
 
-(defun floor (number &optional divisor)
+(defun cl-floor (number &optional divisor)
   "Divide DIVIDEND by DIVISOR, rounding toward minus infinity.
 DIVISOR defaults to 1.  The remainder is produced as a second value."
   (cond ((and (null divisor)            ; trivial case
@@ -1744,7 +1744,7 @@
                     (let ((q (- (+ q 1))))
                       (values q (- number (* q divisor)))))))))))
 
-(defun ceiling (number &optional divisor)
+(defun cl-ceiling (number &optional divisor)
   "Divide DIVIDEND by DIVISOR, rounding toward plus infinity.
 DIVISOR defaults to 1.  The remainder is produced as a second value."
   (cond ((and (null divisor)            ; trivial case
@@ -1761,7 +1761,7 @@
                  (t
                   (values (- q) (+ number (* q divisor)))))))))
 
-(defun truncate (number &optional divisor)
+(defun cl-truncate (number &optional divisor)
   "Divide DIVIDEND by DIVISOR, rounding toward zero.
 DIVISOR defaults to 1.  The remainder is produced as a second value."
   (cond ((and (null divisor)            ; trivial case
@@ -1778,7 +1778,7 @@
                  (t                     ;same as ceiling
                   (values (- q) (+ number (* q divisor)))))))))
 
-(defun round (number &optional divisor)
+(defun cl-round (number &optional divisor)
   "Divide DIVIDEND by DIVISOR, rounding to nearest integer.
 DIVISOR defaults to 1.  The remainder is produced as a second value."
   (cond ((and (null divisor)            ; trivial case