iterate.asd 1.24 KB
Newer Older
Attila Lendvai's avatar
Attila Lendvai committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
;;; -*- lisp -*- system definition

(in-package #:asdf)
;;; I (Joerg Hoehle) totally object ASDF's cluttering my package list
;;; with dozens of tiny definition packages and even more so the
;;; typically empty ASDFNNNN packages. Please give me some package
;;; like ASDF-SYSTEMS or -USER to throw in such trivial definitions.
  
(defsystem :iterate
    :description "Jonathan Amsterdam's iterator/gatherer/accumulator facility"
    :components ((:file "package")
		 (:file "iterate" :depends-on ("package"))))

(defsystem :iterate-pg
    :depends-on (:iterate pg)		; Eric Marsden's pg.lisp
    :components ((:file "iterate-pg")))

(defsystem :iterate-tests
    :depends-on (:iterate #+sbcl sb-rt #-sbcl :rt)
    :components ((:file "iterate-test")))

(defmethod asdf:perform ((op asdf:test-op) (c (eql (find-system ':iterate))))
  (asdf:operate 'asdf:load-op ':iterate-tests)
  (asdf:operate 'asdf:test-op ':iterate-tests))

(defmethod asdf:perform ((op asdf:test-op) (c (eql (find-system ':iterate-tests))))
  (funcall (intern "DO-TESTS" (find-package #+sbcl "SB-RT"
					    #-sbcl "REGRESSION-TEST"))))

(defmethod asdf:perform :after ((o asdf:load-op) (c (eql (find-system ':iterate))))
  (provide '#:iterate))

;;; arch-tag: "b8bc9675-313c-11d8-abb9-000c76244c24"