From 88c78f464129856da0c980bc808f8fdeafae8e1c Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 29 Jul 2018 14:27:36 +0200 Subject: Load site.lisp at runtime. Loading site.lisp on startup rather than at compile-time is necessary to make the Docker/Kubernetes use case work. --- mulkcms.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'mulkcms.lisp') 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))) -- cgit v1.2.3