src/basics/defsys.lsp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2009-12-13 18:08:35 tony>
   4 ;;; Creation:   <2009-08-26 13:48:13 tony>
   5 ;;; File:       defsys.lsp
   6 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
   7 ;;; Copyright:  (c)2009--, AJ Rossini.  BSD license
   8 ;;; Purpose:    basic settings for localization to for use.
   9
  10 ;;; What is this talk of 'release'? Klingons do not make software
  11 ;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
  12 ;;; designers and quality assurance people in its wake.
  13
  14 ;;; This organization and structure is new to the 21st Century
  15 ;;; version...  Think, "21st Century Schizoid Man".
  16
  17 (in-package :lisp-stat-config)
  18
  19 ;;; optimization settings
  20 ;; (proclaim '(optimize (safety 2) (space 3) (speed 3)))
  21
  22 ;;; enforce all floating reads as doubles
  23 ;; (setf *read-default-float-format* 'double-float)
  24
  25 (defvar *common-lisp-stat-version* "1.0 Alpha 1")
  26
  27 (defvar *default-path* "./")
  28
  29 (defvar *cls-home-dir* #p"/usr/share/cls/"
  30         "Value considered \"home\" for our data")
  31
  32 (setf *cls-home-dir*
  33       ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"w
  34       ;; #p"/home/tony/sandbox/CommonLispStat.git/"
  35       #p"/home/tony/sandbox/CLS.git/")
  36
  37 (defmacro ls-dir (root-str)
  38   `(pathname (concatenate 'string (namestring *cls-home-dir*) ,root-str)))
  39
  40 (defmacro ls-defdir (target-dir-var  root-str)
  41   `(defvar ,target-dir-var (ls-dir ,root-str)))
  42
  43 ;;(macroexpand '(ls-defdir *cls-asdf-dir* "ASDF"))
  44 ;;(macroexpand-1 '(ls-defdir *cls-asdf-dir* "ASDF"))
  45 ;;(macroexpand-1 '(ls-dir "ASDF"))
  46
  47 (ls-defdir *cls-asdf-dir* "ASDF/")
  48 (ls-defdir *cls-data-dir* "Data/")
  49 (ls-defdir *cls-external-dir* "external/")
  50 (ls-defdir *cls-examples-dir* "examples/")
  51
  52 ;; Load ASDF if it isn't loaded
  53 #-asdf(load (pathname (concatenate 'string (namestring *cls-external-dir*) "asdf")))
  54
  55 ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal)
  56 ;;(pushnew  *cls-asdf-dir*  asdf:*central-registry*))