1 | ;;;; -*- mode: Lisp -*- |
---|
2 | |
---|
3 | (in-package :asdf) |
---|
4 | |
---|
5 | (defclass named-readtables-source-file (cl-source-file) ()) |
---|
6 | |
---|
7 | #+sbcl |
---|
8 | (defmethod perform :around ((o compile-op) |
---|
9 | (c named-readtables-source-file)) |
---|
10 | (let ((sb-ext:*derive-function-types* t)) |
---|
11 | (call-next-method))) |
---|
12 | |
---|
13 | (defsystem "named-readtables" |
---|
14 | :description "Library that creates a namespace for named readtable |
---|
15 | akin to the namespace of packages." |
---|
16 | :author "Tobias C. Rittweiler <trittweiler@common-lisp.net>" |
---|
17 | :maintainer "Gábor Melis" |
---|
18 | :mailto "mega@retes.hu" |
---|
19 | :version "0.9" |
---|
20 | :licence "BSD, see LICENSE" |
---|
21 | :default-component-class named-readtables-source-file |
---|
22 | :pathname "src" |
---|
23 | :serial t |
---|
24 | :components ((:file "package") |
---|
25 | (:file "utils") |
---|
26 | (:file "define-api") |
---|
27 | (:file "cruft") |
---|
28 | (:file "named-readtables")) |
---|
29 | :in-order-to ((test-op (test-op "named-readtables/test")))) |
---|
30 | |
---|
31 | (defsystem "named-readtables/test" |
---|
32 | :description "Test suite for the Named-Readtables library." |
---|
33 | :author "Tobias C. Rittweiler <trittweiler@common-lisp.net>" |
---|
34 | :maintainer "Gábor Melis" |
---|
35 | :mailto "mega@retes.hu" |
---|
36 | :depends-on ("named-readtables") |
---|
37 | :pathname "test" |
---|
38 | :serial t |
---|
39 | :default-component-class named-readtables-source-file |
---|
40 | :components |
---|
41 | ((:file "package") |
---|
42 | (:file "rt") |
---|
43 | (:file "tests")) |
---|
44 | :perform (test-op (o c) (symbol-call :named-readtables-test '#:do-tests))) |
---|
45 | |
---|
46 | |
---|
47 | ;;; MGL-PAX depends on NAMED-READTABLES so we must put documentation |
---|
48 | ;;; in a separate system in order to be able to use MGL-PAX. |
---|
49 | (defsystem "named-readtables/doc" |
---|
50 | :depends-on ("named-readtables" "mgl-pax") |
---|
51 | :pathname "src" |
---|
52 | :components ((:file "doc"))) |
---|