/usr/share/common-lisp/source/trivial-garbage/trivial-garbage.asd is in cl-trivial-garbage 20130312-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 | ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
;;;
;;; trivial-garbage.asd --- ASDF system definition for trivial-garbage.
;;;
;;; This software is placed in the public domain by Luis Oliveira
;;; <loliveira@common-lisp.net> and is provided with absolutely no
;;; warranty.
#-(or cmu scl sbcl allegro clisp openmcl corman lispworks ecl abcl)
(error "Sorry, your Lisp is not supported by trivial-garbage.")
(defsystem trivial-garbage
:description "Portable finalizers, weak hash-tables and weak pointers."
:author "Luis Oliveira <loliveira@common-lisp.net>"
:licence "Public Domain"
:components ((:file "trivial-garbage")))
(defmethod perform ((op test-op) (sys (eql (find-system :trivial-garbage))))
(operate 'test-op :trivial-garbage-tests))
(defsystem trivial-garbage-tests
:description "Unit tests for TRIVIAL-GARBAGE."
:depends-on (trivial-garbage rt)
:components ((:file "tests")))
(defmethod perform ((op test-op)
(sys (eql (find-system :trivial-garbage-tests))))
(operate 'load-op :trivial-garbage-tests)
(funcall (find-symbol (string '#:do-tests) '#:rtest)))
|