src/config.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2010-11-02 11:20:55 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 (in-package :lisp-stat-config)
  26
  27 (defvar *common-lisp-stat-version* "1"
  28   "Version currently loaded and being used.  Need to make into a
  29   parseable object for version testing. Currently using integers.")
  30
  31 (defparameter *cls-installation-home-dir*
  32   (directory-namestring
  33    (truename (asdf:system-definition-pathname :cls)))
  34   "Value considered \"home\" for the installation.  Requires the use
  35   of ASDF to find out where we are.  But ASDF is required no matter
  36   what.")
  37
  38 (macrolet ((ls-dir (root-str)
  39              `(pathname (concatenate 'string
  40                                      (namestring *cls-installation-home-dir*) ,root-str)))
  41
  42            (ls-defdir (target-dir-var  root-str)
  43              `(defvar ,target-dir-var (ls-dir ,root-str))))
  44   (ls-defdir *cls-asdf-dir* "ASDF/")
  45   (ls-defdir *cls-data-dir* "Data/")
  46   (ls-defdir *cls-external-dir* "external/"))
  47
  48 #|
  49  Testing
  50  (macroexpand '(ls-defdir *cls-asdf-dir* "ASDF"))
  51  (macroexpand-1 '(ls-defdir *cls-asdf-dir* "ASDF"))
  52  (macroexpand-1 '(ls-dir "ASDF"))
  53 |#