ttrivial-garbage.asd - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) git clone git://bitreich.org/clic/ git://hg6vgqziawt5s4dj.onion/clic/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) LICENSE
       ---
       ttrivial-garbage.asd (1118B)
       ---
            1 ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
            2 ;;;
            3 ;;; trivial-garbage.asd --- ASDF system definition for trivial-garbage.
            4 ;;;
            5 ;;; This software is placed in the public domain by Luis Oliveira
            6 ;;; <loliveira@common-lisp.net> and is provided with absolutely no
            7 ;;; warranty.
            8 
            9 #-(or cmu scl sbcl allegro clisp openmcl corman lispworks ecl abcl clasp)
           10 (error "Sorry, your Lisp is not supported by trivial-garbage.")
           11 
           12 (defsystem trivial-garbage
           13   :description "Portable finalizers, weak hash-tables and weak pointers."
           14   :author "Luis Oliveira <loliveira@common-lisp.net>"
           15   :licence "Public Domain"
           16   :components ((:file "trivial-garbage")))
           17 
           18 (defmethod perform ((op test-op) (sys (eql (find-system :trivial-garbage))))
           19   (operate 'test-op :trivial-garbage-tests))
           20 
           21 (defsystem trivial-garbage-tests
           22   :description "Unit tests for TRIVIAL-GARBAGE."
           23   :depends-on (trivial-garbage rt)
           24   :components ((:file "tests")))
           25 
           26 (defmethod perform ((op test-op)
           27                     (sys (eql (find-system :trivial-garbage-tests))))
           28   (operate 'load-op :trivial-garbage-tests)
           29   (funcall (find-symbol (string '#:do-tests) '#:rtest)))