diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-10-02 13:18:57 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-10-02 13:18:57 -0400 |
commit | a7f5d04fbf9ed4a095a242892a58bf28f1287fda (patch) | |
tree | 23f9e4d3fda7be9d20aa505c1a1a81e5f6e17eba /lisp/obsolete/cl-compat.el | |
parent | 253428c4fb82ce7c6c7756f2dee0f16771d08150 (diff) | |
download | emacs-a7f5d04fbf9ed4a095a242892a58bf28f1287fda.tar.gz |
* lisp/obsolete/lucid.el (read-number): Remove, redundant.
* lisp/obsolete/cl-compat.el (cl-floor, cl-ceiling, cl-round, cl-truncate):
Remove, broken.
Diffstat (limited to 'lisp/obsolete/cl-compat.el')
-rw-r--r-- | lisp/obsolete/cl-compat.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/obsolete/cl-compat.el b/lisp/obsolete/cl-compat.el index 191f885a900..bd702a84a25 100644 --- a/lisp/obsolete/cl-compat.el +++ b/lisp/obsolete/cl-compat.el @@ -129,14 +129,6 @@ (if test-not (not (funcall test-not item elt)) (funcall (or test 'eql) item elt)))) - -;;; Rounding functions with old-style multiple value returns. - -(defun cl-floor (a &optional b) (Values-list (floor* a b))) -(defun cl-ceiling (a &optional b) (Values-list (ceiling* a b))) -(defun cl-round (a &optional b) (Values-list (round* a b))) -(defun cl-truncate (a &optional b) (Values-list (truncate* a b))) - (defun safe-idiv (a b) (let* ((q (/ (abs a) (abs b))) (s (* (signum a) (signum b)))) |