2
;;;; Author: Paul Dietz
3
;;;; Created: Wed Aug 20 06:24:45 2003
4
;;;; Contains: Tests of FCEILING
8
(defun fceiling.1-fn ()
9
(loop for n = (- (random 200000)
11
for d = (1+ (random 10000))
12
for vals = (multiple-value-list (fceiling n d))
14
for n2 = (+ (* q d) r)
16
unless (and (eql (length vals) 2)
21
collect (list n d q r n2)))