Patch for iterate.asd

[Robert P. Goldman]

ASDF no longer is happy with system names like "iterate-test".  Instead,
subsidiary systems in the same .asd file should be named using a slash.
So, "iterate/test".  As a bonus in exchange for the need to rename, ASDF
will now be able to find all the subsidiary systems.  I.e., you can
simply do

(asdf:load-system "iterate/test")

now, instead of

(asdf:load-system "iterate)
(asdf:load-system "iterate-test")

which was necessary before, because until ASDF had loaded "iterate" it
didn't know where to look for the definition of "iterate-test."

At the same time I killed the block comment at the top, which was a
complaint about ASDF that is no longer current (the feature requested
has been added).

I'm afraid darcs is one revision control system too many for my poor
brain (any chance of changing the iterate repo to git?), so I am
attaching a patch file that can be applied to iterate.asd.

-------------- next part --------------
4,11c4,8
<     :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
<     :pathname ""
<     :components ((:file "iterate-pg")))
---
>   :description "Jonathan Amsterdam's iterator/gatherer/accumulator facility"
>   :licence "MIT"
>   :in-order-to ((test-op (test-op :iterate/tests)))
>   :components ((:file "package")
>                (:file "iterate" :depends-on ("package"))))
14,20c11,12
<     :depends-on (:iterate #+sbcl sb-rt #-sbcl :rt)
<     :pathname ""
<     :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))
---
>   :depends-on (:iterate #+sbcl :sb-rt #-sbcl :rt)
>   :components ((:file "iterate-test")))
22c14
< (defmethod asdf:perform ((op asdf:test-op) (c (eql (find-system ':iterate/tests))))
---
> (defmethod perform ((operation test-op) (component (eql (find-system :iterate/tests))))
25,29d16
< 
< (defmethod asdf:perform :after ((o asdf:load-op) (c (eql (find-system ':iterate))))
<   (provide '#:iterate))
< 
< ;;; arch-tag: "b8bc9675-313c-11d8-abb9-000c76244c24"