Diff of /contrib/sb-gmp/sb-gmp.asd [000000] .. [1656e5] Maximize Restore

  Switch to unified view

a b/contrib/sb-gmp/sb-gmp.asd
1
(defpackage #:sb-gmp-system (:use #:asdf #:cl))
2
3
(in-package #:sb-gmp-system)
4
5
(defsystem sb-gmp
6
  :name "SB-GMP"
7
  :version "0.1"
8
  :description "bignum calculations for SBCL using the GMP library"
9
  :serial t
10
  :components ((:module sb-gmp
11
                :pathname ""
12
                :components ((:file "gmp")))))
13
14
(defsystem sb-gmp-tests
15
  :depends-on (sb-rt sb-gmp)
16
  :components ((:file "tests")))
17
18
(defmethod perform :after ((o load-op) (c (eql (find-system :sb-gmp))))
19
  (provide 'sb-gmp))
20
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))
26
        (t
27
         (warn "unable to test sb-gmp: libgmp unavailable"))))
28
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))
33
    (fresh-line)
34
    (unless strict
35
      (warn "ignoring expected failures in sb-gmp-tests"))
36
    (unless soft
37
      (error "sb-gmp-tests failed with unexpected failures"))))