Author: hhubner Date: Tue Jan 22 02:21:24 2008 New Revision: 2385 Modified: branches/bos/projects/bos/web/config.lisp branches/bos/projects/bos/web/startup.lisp Log: Put default for *google-analytics-account* into the right place. Modified: branches/bos/projects/bos/web/config.lisp ============================================================================== --- branches/bos/projects/bos/web/config.lisp (original) +++ branches/bos/projects/bos/web/config.lisp Tue Jan 22 02:21:24 2008 @@ -8,7 +8,7 @@ (defparameter *worldpay-test-mode* t) ;; Account fuer Google Analytics -(defparameter *google-analytics-account* "UA-3432041-1") +(defparameter *google-analytics-account*) ;; URL für BASE HREFs (defparameter *website-url* "http://create-rainforest.org") Modified: branches/bos/projects/bos/web/startup.lisp ============================================================================== --- branches/bos/projects/bos/web/startup.lisp (original) +++ branches/bos/projects/bos/web/startup.lisp Tue Jan 22 02:21:24 2008 @@ -17,12 +17,12 @@ (defvar *worldpay-test-mode*) (defun init (&key (port 8080) - (listeners 1) - (vhosts '("localhost")) - website-directory - website-url - worldpay-test-mode - google-analytics-account) + (listeners 1) + (vhosts '("localhost")) + website-directory + website-url + worldpay-test-mode + (google-analytics-account "UA-3432041-1")) (setf *port* port) (setf *listeners* listeners) (setf *vhosts* vhosts)