clean up loads, no substantial changes
[CommonLispStat.git] / init.lisp
blob87c49a1da93f758958c0f116190773fea310e4f2
1 ;;; Basic initialization for LispStat
2 ;;; Time-stamp: <2007-12-26 18:23:24 rossini>
3 ;;; Created: <2007-05-30 17:09:47 ROSSIAN6>
5 ;; Goal:
6 ;;
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
11 ;; this directory structure.
14 ;; (setf *my-base-directory*
15 ;; #p"/home/tony/sandbox/CLS.git/"
16 ;; #p"/Users/ungil/lisp/CommonLispStat/")
20 ;; What package should we be in? Contaminating cl-user is probably EVIL.
22 ;; Need to replace this with some form of self-referential structure.
24 ;; Add the critical paths to the ASDF facility and set up other
25 ;; things; currently this will not do the other setups.
27 (progn
28 (defvar *lispstat-home-dir*
29 ;; #p"/home/tony/sandbox/CommonLispStat.git/"
30 ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"
31 ;; #p"/Users/ungil/lisp/CommonLispStat/")
32 ;; #p"/home/rossini/public_html/GIT.repos/CommonLispStat/"
33 #p"/home/tony/Desktop/sandbox/CLS.git/"
34 "Value considered \"home\" for our data")
36 (setf *lispstat-home-dir*
37 ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"
38 ;; #p"/home/tony/sandbox/CommonLispStat.git/"
39 ;; #p"/Users/ungil/lisp/CommonLispStat/")
40 ;; #p"/home/rossini/public_html/GIT.repos/CommonLispStat/"
41 #p"/home/tony/Desktop/sandbox/CLS.git/"
44 (defmacro ls-dir (root-str)
45 `(pathname (concatenate 'string (namestring *lispstat-home-dir*) ,root-str)))
47 (defmacro ls-defdir (target-dir-var root-str)
48 `(defvar ,target-dir-var (ls-dir ,root-str)))
50 ;;(macroexpand '(ls-defdir *lispstat-asdf-dir* "ASDF"))
51 ;;(macroexpand-1 '(ls-defdir *lispstat-asdf-dir* "ASDF"))
52 ;;(macroexpand-1 '(ls-dir "ASDF"))
54 (ls-defdir *lispstat-asdf-dir* "ASDF/")
55 (ls-defdir *lispstat-data-dir* "data/")
56 (ls-defdir *lispstat-external-dir* "external/")
57 (ls-defdir *lispstat-examples-dir* "examples/")
59 ;; Load ASDF if it isn't loaded
60 #-asdf(load (pathname (concatenate 'string (namestring *lispstat-external-dir*) "asdf")))
62 ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal)
63 (pushnew *lispstat-asdf-dir* asdf:*central-registry*))
65 (progn
66 ;; Load needed packages
68 (asdf:oos 'asdf:load-op :cffi) ;; FFI
69 (asdf:oos 'asdf:load-op :lift) ;; Unit Testing
70 #+nil(asdf:oos 'asdf:load-op :lift-test)
74 (asdf:oos 'asdf:load-op :clem) ;; matrix stuff
75 #+nil(asdf:oos 'asdf:load-op :clem-test)
76 #+nil(asdf:oos 'asdf:load-op :clem-benchmark)
77 #+nil(asdf:oos 'asdf:load-op :cells)
79 ;; Finally...
80 (asdf:oos 'asdf:load-op :lispstat)
83 #+nil(progn
84 (asdf:oos 'asdf:compile-op :cffi)
85 (asdf:oos 'asdf:compile-op :lisp-unit)
86 (asdf:oos 'asdf:compile-op :lift)
87 (asdf:oos 'asdf:compile-op :rclg)
88 (asdf:oos 'asdf:compile-op :cl-cairo2)
89 ;; (asdf:operate 'asdf:load-op 'cffi)
90 ;; (asdf:operate 'asdf:load-op 'rclg)
91 (asdf:oos 'asdf:load-op :celtk)
92 (asdf:oos 'asdf:compile-op :lispstat :force t)
93 ;; (asdf:operate 'asdf:compile-op 'lispstat)