summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mulkcms-hunchentoot.lisp4
-rw-r--r--mulkcms.lisp8
2 files changed, 7 insertions, 5 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp
index 4d7f3c1..f26ea7e 100644
--- a/mulkcms-hunchentoot.lisp
+++ b/mulkcms-hunchentoot.lisp
@@ -79,6 +79,10 @@
*acceptor*)
(defun run-server ()
+ (format t "~&Loading site configuration.")
+ (load "site.lisp")
+ (format t "~&Starting site: ~A" mulkcms::*site-name*)
+ (terpri)
(let ((acceptor (start-server)))
(unwind-protect
(loop
diff --git a/mulkcms.lisp b/mulkcms.lisp
index 8d5ff6e..d1f866e 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -1,9 +1,5 @@
(in-package #:mulkcms)
-(defparameter *database-connection-spec*
- (list *database-name* *database-user* *database-password* *database-host*
- :pooled-p t :use-ssl :no))
-
(defvar *requested-characteristics*)
(defvar *propagated-params*)
(defvar *use-ssl-p*)
@@ -290,7 +286,9 @@
(:pingback "/rpc")))))
(defun call-with-db (thunk)
- (call-with-connection *database-connection-spec* thunk))
+ (call-with-connection (list *database-name* *database-user* *database-password* *database-host*
+ :pooled-p t :use-ssl :no)
+ thunk))
(defmacro with-db (&body body)
`(call-with-db (lambda () ,@body)))