external/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 #.(with-open-file
  29                  (vers (merge-pathnames "version.lisp-expr" *load-truename*))
  30                (read vers))
  31   :licence "BSD"
  32   :description "Miscellaneous Utility Functions from Cyrus Harmon"
  33   :components
  34   ((:static-file "version" :pathname #p"version.lisp-expr")
  35    (:module :src
  36             :components
  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"))))
  54