diff options
Diffstat (limited to 'src/property.lisp')
-rw-r--r-- | src/property.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |