source: branches/portable/wood.asd@ 31

; -*- mode: lisp -*-
(in-package #:cl-user)

#-(or :clozure-common-lisp :LispWorks)
(pushnew :wood-portable *features*)

(asdf:defsystem :wood
  :description "Williams' Object Oriented Database"
  :author "Bill St. Clair <wws@clozure.com>"
  :version "0.961"
  :license "LLGPL"
  :depends-on (:closer-mop
               :bordeaux-threads)
  :in-order-to ((asdf:test-op (asdf:test-op :wood-test)))
  :serial t
  :components
  ((:file "package")
   (:file "compat")
   (:file "q")
   (:file "disk-page-hash")
   (:file "disk-cache")
   (:file "woodequ")
   (:file #+wood-portable "dca-portable"
          #+clozure-common-lisp "dca-clozure"
          #+LispWords "dca-lispworkd")
   (:file "disk-cache-accessors")
   #+not-yet
   (:file "disk-cache-inspector")
   #+LispWorks
   (:file "lw-inspector")
   (:file "persistent-heap")
   (:file "version-control")
   (:file "btrees")
   (:file "persistent-clos")
   ;; Not ported yet
   #+clozure-common-lisp
   (:file "recovery")
   #+clozure-common-lisp
   (:file "wood-gc")
   ))

(asdf:defsystem :wood-test
  :description "Tests for WOOD"
  :author "Bill St. Clair <wws@clozure.com>"
  :version "0.1"
  :license "LLGPL"
  :depends-on (:wood :fiveam)
  :perform (asdf:test-op (o s)
             (uiop:symbol-call :wood-test '#:run-all-tests))
  :serial t
  :components
  ((:file "test-package")
   (:file "test")))

#-LispWorks4 ;; LWW4 fixnums are tiny.
(eval-when (:compile-toplevel :execute :load-toplevel)
  (pushnew :wood-fixnum-addresses *features*))

#+LispWorks
(eval-when (:compile-toplevel :execute :load-toplevel)
  (when (null (get-dispatch-macro-character #\# #\_))
    (set-dispatch-macro-character #\# #\_
                                  #'(lambda(s c n)
                                      (declare (ignore c n))
                                      (read s nil nil t)
                                      nil))))

(setf (logical-pathname-translations "wood")
      (let ((path (or *load-pathname* #+ccl *loading-file-source-file*
                      #+LispWorks dspec:*source-pathname*
                      #+LispWorks system:*current-pathname*)))
        (if path
          (let* ((dest-dir (make-pathname :device    (pathname-device path)
                                          :host      (pathname-host path)
                                          :directory (append
                                                      (or (pathname-directory path)
                                                          '(:absolute))
                                                      '(:wild-inferiors))
                                          :name      :wild
                                          :type      :wild))
                 (physical-dir (translate-logical-pathname dest-dir)))
            ; This is what you'll get if you load this file
            ; or evaluate this form from this buffer.
            `(("wood;**;*.*" ,physical-dir)
              ("**;*.*" ,physical-dir)))
          ; This is what you'll get if you evalute this form
          ; from the listener.
          '(("wood;**;*.*" "ccl:wood;**;*.*")))))