named-readtables.asd 2.24 KB
Newer Older
1
;;; -*- Mode:Lisp -*-
2

3
(in-package :cl-user)
4

5
(defclass asdf::named-readtables-source-file (asdf:cl-source-file) ())
6

Tobias C. Rittweiler's avatar
Tobias C. Rittweiler committed
7 8 9 10 11 12 13
#+sbcl
(defmethod asdf:perform :around ((o asdf:compile-op)
                                 (c asdf::named-readtables-source-file))
  (let ((sb-ext:*derive-function-types* t))
    (call-next-method)))


14
(asdf:defsystem :named-readtables
15 16
  :description "Library that creates a namespace for named readtable akin to the namespace of packages."
  :author "Tobias C. Rittweiler <trittweiler@common-lisp.net>"
17
  :version "0.9"
18
  :licence "BSD"
19
  :default-component-class asdf::named-readtables-source-file
20 21
  :components
  ((:file "package")
22
   (:file "utils"                 :depends-on ("package"))
23
   (:file "define-api"            :depends-on ("package" "utils"))
24
   (:file "cruft"                 :depends-on ("package" "utils"))
25
   (:file "named-readtables"      :depends-on ("package" "utils" "cruft" "define-api"))))
26

Tobias C. Rittweiler's avatar
Tobias C. Rittweiler committed
27 28 29 30
(defmethod asdf:perform ((o asdf:test-op)
                         (c (eql (asdf:find-system :named-readtables))))
  (asdf:operate 'asdf:load-op :named-readtables-test)
  (asdf:operate 'asdf:test-op :named-readtables-test))
31

Tobias C. Rittweiler's avatar
Tobias C. Rittweiler committed
32 33

(asdf:defsystem :named-readtables-test
Tobias C. Rittweiler's avatar
Tobias C. Rittweiler committed
34
  :description "Test suite for the Named-Readtables library."
Tobias C. Rittweiler's avatar
Tobias C. Rittweiler committed
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
  :author "Tobias C. Rittweiler <trittweiler@common-lisp.net>"
  :depends-on (:named-readtables)
  :components
  ((:module tests
    :default-component-class asdf::named-readtables-source-file
    :serial t
    :components
    ((:file "package")
     (:file "rt"    :depends-on ("package"))
     (:file "tests" :depends-on ("package" "rt"))))))

(defmethod asdf:perform ((o asdf:test-op)
                         (c (eql (asdf:find-system
                                  :named-readtables-test))))
  (let ((*package* (find-package :named-readtables-test)))
50 51 52 53 54 55
    (funcall (intern (string '#:do-tests) *package*))))

;; (documentation-template:create-template
;;  :named-readtables
;;  :target "/home/tcr/src/contributing/named-readtables/doc/named-readtables.html"
;;  :version (asdf:component-version (asdf:find-system :named-readtables))
56
;;  :repository "http://common-lisp.net/project/editor-hints/darcs/named-readtables/"
57
;;  :download-url "http://common-lisp.net/project/editor-hints/releases/named-readtables-0.9.tar.gz")