1 ;;; -*- lisp -*- system definition
 2 
 3 (in-package #:asdf)
 4 ;;; I (Joerg Hoehle) totally object ASDF's cluttering my package list
 5 ;;; with dozens of tiny definition packages and even more so the
 6 ;;; typically empty ASDFNNNN packages. Please give me some package
 7 ;;; like ASDF-SYSTEMS or -USER to throw in such trivial definitions.
 8   
 9 (defsystem :iterate
10     :description "Jonathan Amsterdam's iterator/gatherer/accumulator facility"
11     :components ((:file "package")
12 		 (:file "iterate" :depends-on ("package"))))
13 
14 (defsystem :iterate-pg
15     :depends-on (:iterate pg)		; Eric Marsden's pg.lisp
16     :components ((:file "iterate-pg")))
17 
18 (defsystem :iterate-tests
19     :depends-on (:iterate #+sbcl sb-rt #-sbcl :rt)
20     :components ((:file "iterate-test")))
21 
22 (defmethod asdf:perform ((op asdf:test-op) (c (eql (find-system ':iterate))))
23   (asdf:operate 'asdf:load-op ':iterate-tests)
24   (asdf:operate 'asdf:test-op ':iterate-tests))
25 
26 (defmethod asdf:perform ((op asdf:test-op) (c (eql (find-system ':iterate-tests))))
27   (funcall (intern "DO-TESTS" (find-package #+sbcl "SB-RT"
28 					    #-sbcl "REGRESSION-TEST"))))
29 
30 (defmethod asdf:perform :after ((o asdf:load-op) (c (eql (find-system ':iterate))))
31   (provide '#:iterate))
32 
33 ;;; arch-tag: "b8bc9675-313c-11d8-abb9-000c76244c24"