[ieeefp-tests-cvs] CVS update: ieeefp-tests/ieeefp-tests.asd ieeefp-tests/package.lisp

[Christophe Rhodes]

Update of /project/ieeefp-tests/cvsroot/ieeefp-tests
In directory common-lisp.net:/tmp/cvs-serv24446

Modified Files:
	ieeefp-tests.asd package.lisp 
Log Message:
Move *ROUNDING-MODES* and *FLOAT-TYPES* to the IEEEFP-TESTS package.

Make the asdf system description actually do what it's meant to.

Date: Tue Jun 15 06:55:07 2004
Author: crhodes

Index: ieeefp-tests/ieeefp-tests.asd
diff -u ieeefp-tests/ieeefp-tests.asd:1.3 ieeefp-tests/ieeefp-tests.asd:1.4
--- ieeefp-tests/ieeefp-tests.asd:1.3	Wed Jun  9 08:51:44 2004
+++ ieeefp-tests/ieeefp-tests.asd	Tue Jun 15 06:55:07 2004
@@ -5,14 +5,20 @@
 			  :depends-on ("package")
 			  :components
 			  ((:file "ieee754-sbcl"
-				  :in-order-to ((compile-op (feature :sbcl))))
+				  :in-order-to ((asdf:compile-op
+						 (asdf:feature :sbcl))))
 			   (:file "ieee754-cmucl"
-				  :in-order-to ((compile-op (feature :cmu))))
+				  :in-order-to ((asdf:compile-op
+						 (asdf:feature :cmu))))
 			   (:file "ieee754-abcl"
-				  :in-order-to ((compile-op (feature :abcl)))))
+				  :in-order-to ((asdf:compile-op
+						 (asdf:feature :abcl)))))
 			  :if-component-dep-fails :ignore)
 		 (:file "ieeefp-tests" :depends-on ("ieee754"))))
 
-(defmethod asdf:perform ((o asdf:test-op) (c (eql (asdf:find-system :ieeefp-tests))))
-  (mapcar #'load (symbol-value (intern "*TEST-FILES*" (find-package "IEEEFP-TESTS"))))
-  (funcall (intern "DO-TESTS" (find-package "RT"))))
+(cl:defmethod asdf:perform ((o asdf:test-op)
+			    (c (cl:eql (asdf:find-system :ieeefp-tests))))
+  (cl:mapcar #'cl:load 
+	     (cl:symbol-value (cl:intern "*TEST-FILES*"
+					 (cl:find-package "IEEEFP-TESTS"))))
+  (cl:funcall (cl:intern "DO-TESTS" (cl:find-package "RT"))))


Index: ieeefp-tests/package.lisp
diff -u ieeefp-tests/package.lisp:1.2 ieeefp-tests/package.lisp:1.3
--- ieeefp-tests/package.lisp:1.2	Wed Jun  9 08:53:42 2004
+++ ieeefp-tests/package.lisp	Tue Jun 15 06:55:07 2004
@@ -1,7 +1,6 @@
 (defpackage "IEEE754"
   (:use "CL")
-  (:export "*FLOAT-TYPES*" "*ROUNDING-MODES*"
-           "MAKE-SINGLE-FLOAT" "MAKE-DOUBLE-FLOAT"
+  (:export "MAKE-SINGLE-FLOAT" "MAKE-DOUBLE-FLOAT"
 	   "SINGLE-FLOAT-BITS" "DOUBLE-FLOAT-BITS"
 	   "SET-FLOATING-POINT-MODES"))
 
@@ -9,4 +8,5 @@
   (:use "CL" "IEEE754"))
 
 (defpackage "IEEEFP-TESTS"
-  (:use "CL" "IEEE754" "SPLIT-SEQUENCE"))
\ No newline at end of file
+  (:use "CL" "IEEE754" "SPLIT-SEQUENCE")
+  (:export "*FLOAT-TYPES*" "*ROUNDING-MODES*"))