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.
12 (defvar *lispstat-home-dir
* #p
"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"
13 "Value considered \"home\" for our data")
15 (defmacro ls-dir
(root-str)
16 `(pathname (concatenate 'string
(namestring *lispstat-home-dir
*) ,root-str
)))
18 (defmacro ls-defdir
(target-dir-var root-str
)
19 `(defvar ,target-dir-var
(ls-dir ,root-str
)))
21 ;;(macroexpand '(ls-defdir *lispstat-asdf-dir* "ASDF"))
22 ;;(macroexpand-1 '(ls-defdir *lispstat-asdf-dir* "ASDF"))
23 ;;(macroexpand-1 '(ls-dir "ASDF"))
25 (ls-defdir *lispstat-asdf-dir
* "ASDF/")
26 (ls-defdir *lispstat-data-dir
* "data/")
27 (ls-defdir *lispstat-external-dir
* "external/")
29 ;; Load ASDF if it isn't loaded
30 #-asdf
(load (pathname (concatenate 'string
(namestring *lispstat-external-dir
*) "asdf")))
33 ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal)
34 (pushnew *lispstat-asdf-dir
* asdf
:*central-registry
*)
35 (asdf:oos
'asdf
:load-op
:cffi
)
36 (asdf:oos
'asdf
:load-op
:lisp-unit
)
37 (asdf:oos
'asdf
:load-op
:cells
)
38 (asdf:oos
'asdf
:load-op
:lisp-stat
))
41 (asdf:oos
'asdf
:compile-op
:cffi
)
42 (asdf:oos
'asdf
:compile-op
:lisp-unit
)
43 (asdf:oos
'asdf
:compile-op
:rclg
)
44 (asdf:oos
'asdf
:compile-op
:cl-cairo2
)
45 (asdf:oos
'asdf
:load-op
:celtk
))