diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-07 14:21:30 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-07 14:21:30 -0600 |
| commit | 8b188afc2d518761dba8ac6e3776c099506b379d (patch) | |
| tree | 6c08c3c6efce8f56a87aa175df1a6b5b408b04ec | |
| parent | 448320e12237a835b830a3da5154944cce2b80eb (diff) | |
todo
| -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) |