diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-05-22 22:09:25 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-05-22 22:09:25 +0000 |
| commit | 81cbfb762d799b5d4dd194f65b5d3550a7b1ca2e (patch) | |
| tree | fec540cfd545a2b79a0c8dddecd5ea01bfbc6325 /lisp/=cl.el | |
| parent | a632948d514440f168010c00cb8f26663524ecdb (diff) | |
| download | emacs-81cbfb762d799b5d4dd194f65b5d3550a7b1ca2e.tar.gz | |
* 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.
Diffstat (limited to 'lisp/=cl.el')
| -rw-r--r-- | lisp/=cl.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/=cl.el b/lisp/=cl.el index b897603ab47..2d2179b78bc 100644 --- a/lisp/=cl.el +++ b/lisp/=cl.el @@ -1724,7 +1724,7 @@ equal to the real square root of the argument." 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 @@ DIVISOR defaults to 1. The remainder is produced as a second value." (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 @@ DIVISOR defaults to 1. The remainder is produced as a second value." (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 @@ DIVISOR defaults to 1. The remainder is produced as a second value." (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 |