init.lisp

   1 ;;; Basic initialization for LispStat
   2 ;;; Time-stamp: <2007-06-25 09:07:38 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-homedir* #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"
  13         "Value considered \"home\" for our data")
  14 (defvar *tony-local-lispdirstr* (namestring *tony-local-lispdir*)
  15         "Value considered \"home\" for our data")
  16
  17 #+clisp
  18 (progn
  19   (load (pathname (concatenate 'string (namestring *tony-local-lispdir*) "asdf")))
  20   (load (pathname (concatenate 'string (namestring *tony-local-lispdir*) "pcl-portable-files"))))
  21
  22 (progn
  23   ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal)
  24   (pushnew  (pathname (concatenate 'string (namestring *lispstat-homedir*) "ASDF"))
  25             ;;"/cygdrive/c/local/sandbox/Lisp/asdf-packages/")
  26             asdf:*central-registry*)
  27   (asdf:oos 'asdf:load-op :cffi)
  28   (asdf:oos 'asdf:load-op :lisp-unit)
  29   (asdf:oos 'asdf:load-op :cells)
  30   (asdf:oos 'asdf:load-op :lisp-stat))
  31
  32 #+nil(progn
  33        (asdf:oos 'asdf:compile-op :cffi)
  34        (asdf:oos 'asdf:compile-op :lisp-unit)
  35        (asdf:oos 'asdf:compile-op :rclg)
  36        (asdf:oos 'asdf:compile-op :cl-cairo2)
  37        (asdf:oos 'asdf:load-op :celtk))