clsr/ch-util/ch-util.asd

   1
   2 (defpackage #:ch-util-system (:use #:asdf #:cl))
   3 (in-package #:ch-util-system)
   4
   5 ;;;;
   6 ;;;; The following section customizes asdf to work with filenames
   7 ;;;; with a .cl extension and to put fasl files in a separate
   8 ;;;; directory.
   9 ;;;;
  10 ;;;; To enable this behvior, use asdf component type
  11 ;;;;  :ch-util-cl-source-file
  12 ;;;;
  13 (defclass ch-util-cl-source-file (cl-source-file) ())
  14
  15 (defparameter *fasl-directory*
  16   (make-pathname :directory '(:relative #+sbcl "sbcl-fasl"
  17                               #+openmcl "openmcl-fasl"
  18                               #-(or sbcl openmcl) "fasl")))
  19
  20 (defmethod source-file-type ((c ch-util-cl-source-file) (s module)) "cl")
  21
  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)))))
  24
  25 (defsystem #:ch-util
  26   :name "ch-util"
  27   :author "Cyrus Harmon <ch-lisp@bobobeach.com>"
  28   :version "0.1.10-20060315"
  29   :licence "BSD"
  30   :description "Miscellaneous Utility Functions from Cyrus Harmon"
  31   :components
  32   ((:module :src
  33             :components
  34             ((:ch-util-cl-source-file "defpackage")
  35              (:ch-util-cl-source-file "ch-util" :depends-on ("defpackage"))
  36              (:ch-util-cl-source-file "lists" :depends-on ("defpackage"))
  37              (:ch-util-cl-source-file "macros" :depends-on ("defpackage"))
  38              (:ch-util-cl-source-file "testharness" :depends-on ("defpackage"))
  39              (:ch-util-cl-source-file "hash-table" :depends-on ("defpackage"))
  40              (:ch-util-cl-source-file "vector" :depends-on ("defpackage"))
  41              (:ch-util-cl-source-file "bytebuffer" :depends-on ("defpackage"))
  42              (:ch-util-cl-source-file "filesystem" :depends-on ("defpackage"))
  43              (:ch-util-cl-source-file "debug" :depends-on ("defpackage"))
  44              (:ch-util-cl-source-file "ch-asdf" :depends-on ("defpackage" "filesystem"))))
  45    (:static-file "bootstrap" :pathname #p"bootstrap.cl")
  46    (:static-file "COPYRIGHT")
  47    (:static-file "README")
  48    (:static-file "make-dist" :pathname #.(make-pathname :name "make-dist" :type "sh"))))
  49