-(defun timezone-abs (n)
- "Return the absolute value of N."
- (if (fboundp 'abs)
- (abs n)
- (if (< n 0) (- n) n)))
-
-(defun timezone-floor (n &optional divisor)
- "Return the largest integer no grater than N.
-With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR."
- (if (fboundp 'floor)
- (floor n divisor)
- (if (null divisor)
- (setq divisor 1))
- (if (< n 0)
- (- (/ (- divisor 1 n) divisor))
- (/ n divisor))))