From ecedad810884088e7704b5ae22ab51f2f3e0b7b3 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 7 Jun 2021 18:08:48 -0700 Subject: add WITH-UNAPPLY & COLLAPSE-PROPAPP-TYPES Signed-off-by: Sean Whitton --- src/property.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/property.lisp') diff --git a/src/property.lisp b/src/property.lisp index 2ef9f5d..499e061 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -66,6 +66,10 @@ (defun collapse-types (&rest lists) (if (member :posix (flatten lists)) :posix :lisp)) +(defun collapse-propapp-types (&rest lists) + (if (member :posix (mapcan (curry #'mapcar #'propapptype) lists)) + :posix :lisp)) + (defun propdesc (prop &rest args) (apply (get prop 'desc #'noop) args)) -- cgit v1.2.3