comparison lisp/=cl.el @ 3346:0047b8501fce

(mod): Use cl-floor. (rem): Use cl-truncate.

3345:38168270a9ca

;;; These two functions access the implementation-dependent representation of
;;; the multiple value returns.

(defun mod (number divisor)
  "Return remainder of X by Y (rounding quotient toward minus infinity).
That is, the remainder goes with the quotient produced by `floor'.
Emacs Lisp hint:
If you know that both arguments are positive, use `%' instead for speed."
  (floor number divisor)
  (cadr *mvalues-values*))

(defun rem (number divisor)
  "Return remainder of X by Y (rounding quotient toward zero).
That is, the remainder goes with the quotient produced by `truncate'.
Emacs Lisp hint:
If you know that both arguments are positive, use `%' instead for speed."
  (truncate number divisor)
  (cadr *mvalues-values*))

;;; internal utilities
;;;
;;; safe-idiv performs an integer division with positive numbers only.

3346:0047b8501fce

;;; These two functions access the implementation-dependent representation of
;;; the multiple value returns.

(defun mod (number divisor)
  "Return remainder of X by Y (rounding quotient toward minus infinity).
That is, the remainder goes with the quotient produced by `cl-floor'.
Emacs Lisp hint:
If you know that both arguments are positive, use `%' instead for speed."
  (cl-floor number divisor)
  (cadr *mvalues-values*))

(defun rem (number divisor)
  "Return remainder of X by Y (rounding quotient toward zero).
That is, the remainder goes with the quotient produced by `cl-truncate'.
Emacs Lisp hint:
If you know that both arguments are positive, use `%' instead for speed."
  (cl-truncate number divisor)
  (cadr *mvalues-values*))

;;; internal utilities
;;;
;;; safe-idiv performs an integer division with positive numbers only.