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)))