diff options
Diffstat (limited to 'lazybones.lisp')
| -rw-r--r-- | lazybones.lisp | 6 |
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 |