Mercurial > emacs
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