[ieeefp-tests-cvs] CVS update: ieeefp-tests/ieee754/ieee754-cmucl.lisp

[Raymond Toy]

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))
+	   , at 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))))