1 ;;; Basic initialization for LispStat
2 ;;; Time-stamp: <2007-06-25 19:58:14 ROSSIAN6>
3 ;;; Created: <2007-05-30 17:09:47 ROSSIAN6>
7 ;; Associate ASDF directory for loading.
8 ;; Make sure that we have initialized any locally defined global variables
9 ;; ensure appropriate tools are linked in for loading.
10 ;; i.e. if features don't exist, load from particular locations in this directory structure.
13 ;; Need to replace this with some form of self-referential structure.
15 (defvar *lispstat-home-dir
*
16 ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"w
17 #p
"/home/tony/sandbox/CommonLispStat.git/"
18 "Value considered \"home\" for our data")
21 (defmacro ls-dir
(root-str)
22 `(pathname (concatenate 'string
(namestring *lispstat-home-dir
*) ,root-str
)))
24 (defmacro ls-defdir
(target-dir-var root-str
)
25 `(defvar ,target-dir-var
(ls-dir ,root-str
)))
27 ;;(macroexpand '(ls-defdir *lispstat-asdf-dir* "ASDF"))
28 ;;(macroexpand-1 '(ls-defdir *lispstat-asdf-dir* "ASDF"))
29 ;;(macroexpand-1 '(ls-dir "ASDF"))
31 (ls-defdir *lispstat-asdf-dir
* "ASDF/")
32 (ls-defdir *lispstat-data-dir
* "data/")
33 (ls-defdir *lispstat-external-dir
* "external/")
35 ;; Load ASDF if it isn't loaded
36 #-asdf
(load (pathname (concatenate 'string
(namestring *lispstat-external-dir
*) "asdf")))
38 ;; Add the critical paths to the ASDF facility
41 ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal)
42 (pushnew *lispstat-asdf-dir
* asdf
:*central-registry
*)
45 (asdf:oos
'asdf
:load-op
:cffi
)
48 (asdf:oos
'asdf
:load-op
:lift
)
49 ;;(asdf:oos 'asdf:load-op :lisp-unit)
52 ;;(asdf:oos 'asdf:load-op :cells)
55 #+nil
(asdf:oos
'asdf
:load-op
:lispstat
)
59 (asdf:oos
'asdf
:compile-op
:cffi
)
60 (asdf:oos
'asdf
:compile-op
:lisp-unit
)
61 (asdf:oos
'asdf
:compile-op
:lift
)
62 (asdf:oos
'asdf
:compile-op
:rclg
)
63 (asdf:oos
'asdf
:compile-op
:cl-cairo2
)
64 (asdf:oos
'asdf
:load-op
:celtk
))