From 721e1bb6e6229c97ad10208df8b90f4fa0d306ba Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 8 Feb 2022 13:47:11 -0600 Subject: refactored lazybones:app function --- lazybones.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lazybones.lisp b/lazybones.lisp index 5f46a83..cf438cf 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -118,10 +118,8 @@ (defun app (&optional name) "Get the APP instance named by the symbol NAME. If NAME is not supplied, get the default app. Every package has at most one default -app, named with the package name." - (symbol-lazybones (or name - (intern (package-name *package*) *package*)) - nil)) +app, named with the package name. If no app can be found, return NIL" + (symbol-lazybones (or name (default-app-name)) nil)) (defclass endpoint () ((method -- cgit v1.2.3