2 (defpackage #:ch-util-test-system (:use #:asdf #:cl))
3 (in-package #:ch-util-test-system)
6 ;;;; The following section customizes asdf to work with filenames
7 ;;;; with a .cl extension and to put fasl files in a separate
10 ;;;; To enable this behvior, use asdf component type
11 ;;;; :ch-util-test-cl-source-file
13 (defclass ch-util-test-cl-source-file (cl-source-file) ())
15 (defparameter *fasl-directory*
16 (make-pathname :directory '(:relative #+sbcl "sbcl-fasl"
17 #+openmcl "openmcl-fasl"
18 #-(or sbcl openmcl) "fasl")))
20 (defmethod source-file-type ((c ch-util-test-cl-source-file) (s module)) "cl")
22 (defmethod asdf::output-files :around ((operation compile-op) (c ch-util-test-cl-source-file))
23 (list (merge-pathnames *fasl-directory* (compile-file-pathname (component-pathname c)))))
25 (defsystem #:ch-util-test
27 :author "Cyrus Harmon <ch-lisp@bobobeach.com>"
28 :version #.(with-open-file
29 (vers (merge-pathnames "version.lisp-expr" *load-truename*))
32 :description "Tests for ch-util"
33 :depends-on (:ch-util)
37 ((:ch-util-test-cl-source-file "defpackage")
38 (:ch-util-test-cl-source-file "test-ch-util" :depends-on ("defpackage"))))))