 |
ttrivial-garbage.asd - clic - Clic is an command line interactive client for go… |
 |
git clone git://bitreich.org/clic/ git://hg6vgqziawt5s4dj.onion/clic/ |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
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 ;;; <[email protected]> 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 <[email protected]>" |
|
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))) |
