- `(let (ints
- floats
- (start (- ,(find-symbol (format nil
- "MOST-~A-EXACTLY-~A-FIXNUM"
- sign type)
- :sb-kernel)
- ,range)))
- (dotimes (i (1+ (* ,range 2)))
- (let* ((x (+ start i))
- (y (coerce x ',type)))
- (push x ints)
- (push y floats)))
- (dolist (i ints)
- (dolist (f floats)
- (dolist (op '(< <= = >= >))
- (unless (eq (funcall op i f)
- (funcall op i (rationalize f)))
- (error "(not (eq (~a ~a ~f) (~a ~a ~a)))~%"
- op i f
- op i (rationalize f)))
- (unless (eq (funcall op f i)
- (funcall op (rationalize f) i))
- (error "(not (eq (~a ~f ~a) (~a ~a ~a)))~%"
- op f i
- op (rationalize f) i))))))))
+ `(let (ints
+ floats
+ (start (- ,(find-symbol (format nil
+ "MOST-~A-EXACTLY-~A-FIXNUM"
+ sign type)
+ :sb-kernel)
+ ,range)))
+ (dotimes (i (1+ (* ,range 2)))
+ (let* ((x (+ start i))
+ (y (coerce x ',type)))
+ (push x ints)
+ (push y floats)))
+ (dolist (i ints)
+ (dolist (f floats)
+ (dolist (op '(< <= = >= >))
+ (unless (eq (funcall op i f)
+ (funcall op i (rationalize f)))
+ (error "(not (eq (~a ~a ~f) (~a ~a ~a)))~%"
+ op i f
+ op i (rationalize f)))
+ (unless (eq (funcall op f i)
+ (funcall op (rationalize f) i))
+ (error "(not (eq (~a ~f ~a) (~a ~a ~a)))~%"
+ op f i
+ op (rationalize f) i))))))))