Round towards negative infinity.
(defun round-floor (number &optional (precision *precision*)) "Round towards negative infinity." (/ (floor (* number precision)) precision))