Update of /project/ieeefp-tests/cvsroot/ieeefp-tests/ieee754 In directory common-lisp.net:/tmp/cvs-serv15864/ieee754
Modified Files: ieee754-cmucl.lisp Log Message: Cargo cult the macrolet from ieee754-sbcl.lisp to get ieee754:= defined.
Date: Thu Aug 25 20:04:17 2005 Author: rtoy
Index: ieeefp-tests/ieee754/ieee754-cmucl.lisp diff -u ieeefp-tests/ieee754/ieee754-cmucl.lisp:1.4 ieeefp-tests/ieee754/ieee754-cmucl.lisp:1.5 --- ieeefp-tests/ieee754/ieee754-cmucl.lisp:1.4 Thu Aug 25 18:43:41 2005 +++ ieeefp-tests/ieee754/ieee754-cmucl.lisp Thu Aug 25 20:04:17 2005 @@ -108,3 +108,23 @@ (incf f) (decf f)) (* s (scale-float (float f x) e)))))) + +(macrolet + ((def (x &body body) + `(defun ,x (x y) + (declare (type float x y)) + ,@body))) + (def = (cl:= x y)) + (def ?<> (not (= x y))) + (def > (cl:> x y)) + (def >= (cl:>= x y)) + (def < (cl:< x y)) + (def <= (cl:<= x y)) + (def ? (or (ext:float-nan-p x) (ext:float-nan-p y))) + (def <> (or (< x y) (> x y))) + (def <=> (or (< x y) (= x y) (> x y))) + (def ?> (or (? x y) (> x y))) + (def ?>= (or (? x y) (>= x y))) + (def ?< (or (? x y) (< x y))) + (def ?<= (or (? x y) (<= x y))) + (def ?= (or (? x y) (= x y))))