1 (defpackage #:sb-gmp-system (:use #:asdf #:cl))
3 (in-package #:sb-gmp-system)
8 :description "bignum calculations for SBCL using the GMP library"
10 :components ((:module sb-gmp
12 :components ((:file "gmp")))))
14 (defsystem sb-gmp-tests
15 :depends-on (sb-rt sb-gmp)
16 :components ((:file "tests")))
18 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-gmp))))
21 (defmethod perform ((o test-op) (c (eql (find-system :sb-gmp))))
22 (operate 'load-op 'sb-gmp)
23 (cond ((member :sb-gmp *features*)
24 (operate 'load-op 'sb-gmp-tests)
25 (operate 'test-op 'sb-gmp-tests))
27 (warn "unable to test sb-gmp: libgmp unavailable"))))
29 (defmethod perform ((o test-op) (c (eql (find-system :sb-gmp-tests))))
30 (multiple-value-bind (soft strict pending)
31 (funcall (intern "DO-TESTS" (find-package "SB-RT")))
32 (declare (ignorable pending))
35 (warn "ignoring expected failures in sb-gmp-tests"))
37 (error "sb-gmp-tests failed with unexpected failures"))))