iterate.asd 649 Bytes
Newer Older
Attila Lendvai's avatar
Attila Lendvai committed
1 2 3
;;; -*- lisp -*- system definition

(defsystem :iterate
Attila Lendvai's avatar
Attila Lendvai committed
4 5
  :description "Jonathan Amsterdam's iterator/gatherer/accumulator facility"
  :licence "MIT"
Attila Lendvai's avatar
Attila Lendvai committed
6
  :version "1.5"
7
  :in-order-to ((test-op (test-op :iterate/tests)))
Attila Lendvai's avatar
Attila Lendvai committed
8 9
  :components ((:file "package")
               (:file "iterate" :depends-on ("package"))))
Attila Lendvai's avatar
Attila Lendvai committed
10

Attila Lendvai's avatar
Attila Lendvai committed
11 12 13
(defsystem :iterate/tests
  :depends-on (:iterate #+sbcl :sb-rt #-sbcl :rt)
  :components ((:file "iterate-test")))
Attila Lendvai's avatar
Attila Lendvai committed
14

15
(defmethod perform ((operation test-op) (component (eql (find-system :iterate/tests))))
Attila Lendvai's avatar
Attila Lendvai committed
16
  (funcall (intern "DO-TESTS" (find-package #+sbcl "SB-RT"
Attila Lendvai's avatar
Attila Lendvai committed
17
                                            #-sbcl "REGRESSION-TEST"))))