refactored lazybones:app function

1 files 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