test-source-file-type-1.asd 417 Bytes
Newer Older
1 2 3 4
;; Should work with both ASDF 1 and ASDF 2.
(defclass cl-source-file-1 (cl-source-file)
  ())

5 6 7
(defmethod asdf::source-file-type ((f cl-source-file-1) (s system))
  (declare (ignorable f s))
  (format t "Hello, world!~%")
8 9 10
  "cl")

(defsystem test-source-file-type-1
11 12 13 14
  :default-component-class cl-source-file-1
  :serial t
  :components ((:cl-source-file "file1") ; for the package
               (:file "test-tmp")))