bring back the default site

vii · Jun 13, 2009 · 53984b8 · 53984b8
1 parent fdef30e
commit 53984b8
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 2 deletions.
diff --git a/src/webapp/default-site.lisp b/src/webapp/default-site.lisp
@@ -0,0 +1,5 @@
+(in-package #:tpd2.webapp)
+
+(defsite *default-site*)
+(setf *current-site* *default-site*)
+
diff --git a/src/webapp/site.lisp b/src/webapp/site.lisp
@@ -4,7 +4,7 @@
   (define-constant +site-customization-funcs+ '(page-head page-body-start page-body-footer) :test 'equalp)
   (define-constant +site-customization-func-args+ '(title) :test 'equalp))
 
-(defparameter *current-site* nil)
+(defvar *current-site*)
 
 (defmacro current-site ()
   `*current-site*)
@@ -93,4 +93,7 @@
 							,(apply (,(concat-sym 'site- func) ,site) +site-customization-func-args+)))))))))
 	  (def-runtime-funcs site))
 
-    	site))))
+    	site))))
+
+
+
diff --git a/teepeedee2.asd b/teepeedee2.asd
@@ -90,6 +90,7 @@
 							   (:file "names")
 							   (:file "html-constants")
 							   (:file "site")
+							   (:file "default-site" :depends-on ("site" "webapp" "js-library"))
 							   (:file "js-library" :depends-on ("html-constants" "page"))
 							   (:file "actions" :depends-on ("page" "html-constants" "frame"))
 							   (:file "channel" :depends-on ("page" "html-constants"))