# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 738108565 0
# Node ID 6b62c36ce82e3a948a7a1d4f9208f341ea593192
# Parent  e936d56c235454e583a8891a438413da2a512e6f
	* 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.

diff -r e936d56c2354 -r 6b62c36ce82e lisp/=cl.el
--- 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