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