diff options
Diffstat (limited to 'src/core/unit.lisp')
| -rw-r--r-- | src/core/unit.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/core/unit.lisp b/src/core/unit.lisp index fb02f08..e93ba56 100644 --- a/src/core/unit.lisp +++ b/src/core/unit.lisp @@ -21,11 +21,10 @@ in this application." (or (cached-application unit) (setf (cached-application unit) (labels ((rec (u) - (when-let (c (unit-container u)) - (etypecase c - (application c) - (unit (rec c)) - (null nil))))) + (etypecase u + (application u) + (unit (rec (unit-container u))) + (nil nil)))) (rec unit))))) |