src/config.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2010-09-06 13:46:06 tony>
   4 ;;; Creation:   <2009-03-12 17:14:56 tony>
   5 ;;; File:       template.lisp
   6 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
   7 ;;; Copyright:  (c)2009--, AJ Rossini.  Currently licensed under MIT
   8 ;;;             license.  See file LICENSE.mit in top-level directory
   9 ;;;             for information.
  10 ;;; Purpose:    Template header file
  11
  12 ;;; What is this talk of 'release'? Klingons do not make software
  13 ;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
  14 ;;; designers and quality assurance people in its wake.
  15
  16 ;;; This organization and structure is new to the 21st Century
  17 ;;; version..   Think, "21st Century Schizoid Man".
  18
  19 ;;; enforce all floating reads as doubles
  20 (setf *read-default-float-format* 'double-float)
  21
  22 ;;; optimization settings
  23 ;; (proclaim '(optimize (safety 2) (space 3) (speed 3)))
  24
  25
  26 (in-package :lisp-stat-config)
  27
  28 (defvar *common-lisp-stat-version* "1"
  29   "Version currently loaded and being used.  Need to make into a
  30   parseable object for version testing. Currently using integers.")
  31
  32 (defparameter *cls-home-dir*
  33   (directory-namestring
  34    (truename (asdf:system-definition-pathname :cls)))
  35   "Value considered \"home\" for the installation.  Requires the use of ASDF to find out where we are.")
  36
  37 #|
  38 (setf *cls-home-dir*
  39       ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"w
  40       ;; #p"/home/tony/sandbox/CommonLispStat.git/"
  41       #p"/home/tony/sandbox/CLS.git/")
  42 |#
  43
  44 (macrolet ((ls-dir (root-str)
  45              `(pathname (concatenate 'string
  46                                      (namestring *cls-home-dir*) ,root-str)))
  47
  48            (ls-defdir (target-dir-var  root-str)
  49              `(defvar ,target-dir-var (ls-dir ,root-str))))
  50   (ls-defdir *cls-asdf-dir* "ASDF/")
  51   (ls-defdir *cls-data-dir* "Data/")
  52   (ls-defdir *cls-external-dir* "external/")
  53   ;; reminder of testing
  54   ;;(macroexpand '(ls-defdir *cls-asdf-dir* "ASDF"))
  55   ;;(macroexpand-1 '(ls-defdir *cls-asdf-dir* "ASDF"))
  56   ;;(macroexpand-1 '(ls-dir "ASDF"))
  57   )