3 ;;; Time-stamp: <2009-12-13 18:08:35 tony>
4 ;;; Creation: <2009-08-26 13:48:13 tony>
6 ;;; Author: AJ Rossini <blindglobe@gmail.com>
7 ;;; Copyright: (c)2009--, AJ Rossini. BSD license
8 ;;; Purpose: basic settings for localization to for use.
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.
14 ;;; This organization and structure is new to the 21st Century
15 ;;; version... Think, "21st Century Schizoid Man".
17 (in-package :lisp-stat-config
)
19 ;;; optimization settings
20 ;; (proclaim '(optimize (safety 2) (space 3) (speed 3)))
22 ;;; enforce all floating reads as doubles
23 ;; (setf *read-default-float-format* 'double-float)
25 (defvar *common-lisp-stat-version
* "1.0 Alpha 1")
27 (defvar *default-path
* "./")
29 (defvar *cls-home-dir
* #p
"/usr/share/cls/"
30 "Value considered \"home\" for our data")
33 ;; #p"/cygdrive/c/local/sandbox/Lisp/CommonLispStat/"w
34 ;; #p"/home/tony/sandbox/CommonLispStat.git/"
35 #p
"/home/tony/sandbox/CLS.git/")
37 (defmacro ls-dir
(root-str)
38 `(pathname (concatenate 'string
(namestring *cls-home-dir
*) ,root-str
)))
40 (defmacro ls-defdir
(target-dir-var root-str
)
41 `(defvar ,target-dir-var
(ls-dir ,root-str
)))
43 ;;(macroexpand '(ls-defdir *cls-asdf-dir* "ASDF"))
44 ;;(macroexpand-1 '(ls-defdir *cls-asdf-dir* "ASDF"))
45 ;;(macroexpand-1 '(ls-dir "ASDF"))
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/")
52 ;; Load ASDF if it isn't loaded
53 #-asdf
(load (pathname (concatenate 'string
(namestring *cls-external-dir
*) "asdf")))
55 ;; (pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal)
56 ;;(pushnew *cls-asdf-dir* asdf:*central-registry*))