parameters.lisp

   1 ;;; parameters, these are automatically generated in compile time
   2 ;;;
   3 ;;; when the system is executed with no compilation you will find unknown
   4 ;;; in place of the real thing, don't worry, the system is constantly
   5 ;;; tested and used in unknow mode
   6 ;;;
   7 ;;; If you have any trouble compiling just contact me on the project
   8 ;;; page osdn.net/projects/rulp/
   9 (defpackage parameters
  10   (:use :cl)
  11   (:export *rulp-version* *rulp-arch* *rulp-system* *rulp-share* *rulp-local*))
  12
  13 (in-package :parameters)
  14
  15
  16 ;; by standard parameters surrounded by asterisks (*) are seen as
  17 ;; mutable globals, therefore these variables should editable and
  18 ;; the software (and the user too) should expect them to change
  19 ;;
  20 ;; parameters surrounded by pluses (+) are seen as costants, therefore
  21 ;; they should be seen as fixed variables like version compatibility
  22 ;; references and pathfinding strings.
  23 (defparameter *rulp-version* (slot-value (asdf:find-system 'rulp)  'asdf:version))
  24 (defparameter *rulp-arch* "unknown")
  25 (defparameter *rulp-system* "unknown")
  26 (defparameter *rulp-share* "./media/") ; remember to close with a slash here
  27
  28 (defparameter *rulp-local* ".") ; subject of change