init.lisp

   1 ;;; Basic initialization for LispStat
   2 ;;; Time-stamp: <2007-06-25 19:58:14 ROSSIAN6>
   3 ;;; Created: <2007-05-30 17:09:47 ROSSIAN6>
   4
   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 this directory structure.
  11
  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")
  16
  17 (defmacro ls-dir (root-str)
  18   `(pathname (concatenate 'string (namestring *lispstat-home-dir*) ,root-str)))
  19
  20 (defmacro ls-defdir (target-dir-var  root-str)
  21   `(defvar ,target-dir-var (ls-dir ,root-str)))
  22
  23 ;;(macroexpand '(ls-defdir *lispstat-asdf-dir* "ASDF"))
  24 ;;(macroexpand-1 '(ls-defdir *lispstat-asdf-dir* "ASDF"))
  25 ;;(macroexpand-1 '(ls-dir "ASDF"))
  26
  27 (ls-defdir *lispstat-asdf-dir* "ASDF/")
  28 (ls-defdir *lispstat-data-dir* "data/")
  29 (ls-defdir *lispstat-external-dir* "external/")
  30
  31 ;; Load ASDF if it isn't loaded
  32 #-asdf(load (pathname (concatenate 'string (namestring *lispstat-external-dir*) "asdf")))
  33
  34 (progn
  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))
  41
  42 #+nil(progn
  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))