From 8b188afc2d518761dba8ac6e3776c099506b379d Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 7 Feb 2022 14:21:30 -0600 Subject: todo --- lazybones-hunchentoot.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3