* poe-18.el (floor): Removed.

[elisp/apel.git] / poe-18.el

diff --git a/poe-18.el b/poe-18.el
index 9d2f2ea..033312f 100644 (file)
--- a/poe-18.el
+++ b/poe-18.el
@@ -454,15 +454,6 @@ resolution finer than a second."
   "Return the absolute value of ARG."
   (if (< arg 0) (- arg) arg))
 
-(defun floor (arg &optional divisor)
-  "Return the largest integer no grater than ARG.
-With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR."
-  (if (null divisor)
-      (setq divisor 1))
-  (if (< arg 0)
-      (- (/ (- divisor 1 arg) divisor))
-    (/ arg divisor)))
-
 ;;; @ Basic lisp subroutines.
 ;;;