diff options
-rw-r--r-- | lazybones-hunchentoot.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lazybones-hunchentoot.lisp b/lazybones-hunchentoot.lisp index ed29b57..b87b83b 100644 --- a/lazybones-hunchentoot.lisp +++ b/lazybones-hunchentoot.lisp @@ -170,7 +170,8 @@ UNINSTALL-APP, START-SERVER, and STOP-SERVER." (defun install-app (server app) "Installs a LAZYBONES:APP instance to SERVER." - (push app (acceptor-apps server))) + ;; TODO add assertsion here + (push (if (symbolp app) (lzb:app app) app) (acceptor-apps server))) (defun uninstall-app (server app) (setf (acceptor-apps server) |