test-source-file-type-1.asd 388 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13
;; Should work with both ASDF 1 and ASDF 2.
(defclass cl-source-file-1 (cl-source-file)
  ())

(defmethod source-file-type ((f cl-source-file-1) (m module))
  (declare (ignorable f m))
  "cl")

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