From 0f176342245b5d1827d5dc1181d310c4bbc832c9 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 2 Apr 2022 14:48:38 -0700 Subject: replace uses of COLLAPSE-TYPES & drop the function Signed-off-by: Sean Whitton --- src/property/os.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/property/os.lisp') diff --git a/src/property/os.lisp b/src/property/os.lisp index c4da923..65fdc6a 100644 --- a/src/property/os.lisp +++ b/src/property/os.lisp @@ -101,8 +101,7 @@ ;;;; Property combinators (defun typecase-type (cases) - (collapse-types (loop for propapp in (cdr cases) by #'cddr - collect (propapptype propapp)))) + (combine-propapp-types (loop for pa in (cdr cases) by #'cddr collect pa))) (defun typecase-host (host) (class-of (if host -- cgit v1.2.3