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*"))