/usr/share/common-lisp/source/iterate/iterate.asd is in cl-iterate 20140713-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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"
|