Add environments for running

[candle] / src / main / base.lisp

diff --git a/src/main/base.lisp b/src/main/base.lisp
index f5995a4aedc5711435f82b17ce36582826934f16..793841a00bd19ebc2e654bb3b3f5400e04967252 100644 (file)
--- a/src/main/base.lisp
+++ b/src/main/base.lisp
@@ -16,6 +16,22 @@ DESCRIPTION:
   The main directory for all candle work to be done in.  When the server is running
   in local mode, this is also the place that builds are built in")
 
   The main directory for all candle work to be done in.  When the server is running
   in local mode, this is also the place that builds are built in")
 

+(defvar *environment* :local
+ "*ENVIRONMENT*
+
+VALUE TYPE:
+
+  A keyword
+
+INITIAL VALUE:
+
+  :LOCAL
+
+DESCRIPTION:
+
+  The environment that candle is currently running.  Useful to do switching in tests
+  or in the .candle file to do extra boot up processing.")
+

 (define-condition candle-error (error)
  ((reason :initarg :reason :reader candle-error-reason))
  (:documentation
 (define-condition candle-error (error)
  ((reason :initarg :reason :reader candle-error-reason))
  (:documentation