2 (defpackage #:ch-util-system (:use #:asdf #:cl))
3 (in-package #:ch-util-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-cl-source-file
13 (defclass ch-util-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-cl-source-file) (s module)) "cl")
22 (defmethod asdf::output-files :around ((operation compile-op) (c ch-util-cl-source-file))
23 (list (merge-pathnames *fasl-directory* (compile-file-pathname (component-pathname c)))))
27 :author "Cyrus Harmon <ch-lisp@bobobeach.com>"
28 :version #.(with-open-file
29 (vers (merge-pathnames "version.lisp-expr" *load-truename*))
32 :description "Miscellaneous Utility Functions from Cyrus Harmon"
34 ((:static-file "version" :pathname #p"version.lisp-expr")
37 ((:ch-util-cl-source-file "defpackage")
38 (:ch-util-cl-source-file "ch-util" :depends-on ("defpackage"))
39 (:ch-util-cl-source-file "lists" :depends-on ("defpackage"))
40 (:ch-util-cl-source-file "macros" :depends-on ("defpackage"))
41 (:ch-util-cl-source-file "testharness" :depends-on ("defpackage"))
42 (:ch-util-cl-source-file "hash-table" :depends-on ("defpackage"))
43 (:ch-util-cl-source-file "array" :depends-on ("defpackage"))
44 (:ch-util-cl-source-file "sequence" :depends-on ("defpackage"))
45 (:ch-util-cl-source-file "vector" :depends-on ("defpackage"))
46 (:ch-util-cl-source-file "bytebuffer" :depends-on ("defpackage"))
47 (:ch-util-cl-source-file "filesystem" :depends-on ("defpackage"))
48 (:ch-util-cl-source-file "debug" :depends-on ("defpackage"))
49 (:ch-util-cl-source-file "ch-asdf" :depends-on ("defpackage" "filesystem"))))
50 (:static-file "bootstrap" :pathname #p"bootstrap.cl")
51 (:static-file "COPYRIGHT")
52 (:static-file "README")
53 (:static-file "make-dist" :pathname #.(make-pathname :name "make-dist" :type "sh"))))