diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-07 18:08:48 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-08 09:08:39 -0700 |
| commit | ecedad810884088e7704b5ae22ab51f2f3e0b7b3 (patch) | |
| tree | 6ba8944e2d96984f28806d2b8aaf5c000aa72d70 /src/property.lisp | |
| parent | 9d8548b589f9b6496f9fb7c0dcc1446a91ca5e86 (diff) | |
| download | consfigurator-ecedad810884088e7704b5ae22ab51f2f3e0b7b3.tar.gz | |
add WITH-UNAPPLY & COLLAPSE-PROPAPP-TYPES
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
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)) |