iterate.asd 632 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"
6
  :in-order-to ((test-op (test-op :iterate/tests)))
Attila Lendvai's avatar
Attila Lendvai committed
7
8
  :components ((:file "package")
               (:file "iterate" :depends-on ("package"))))
Attila Lendvai's avatar
Attila Lendvai committed
9

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

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