diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-09 17:21:17 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-09 17:51:44 -0700 |
| commit | d8ed269b483ae8054d9bd26e835b91e594aa9c0d (patch) | |
| tree | a25b87e4a5f2d25e636a0217c4d70f1e5fb09e4c /src/property.lisp | |
| parent | 6a61433aeb0ed9438ca074acb75458695e4b1193 (diff) | |
| download | consfigurator-d8ed269b483ae8054d9bd26e835b91e594aa9c0d.tar.gz | |
COLLAPSE{,-PROPAPP}-TYPES: invert logic
These functions are used to determine whether a composite property is :POSIX
or :LISP. If any of the composing properties are :LISP, then we need to
return :LISP, such that attempting to apply the composite property using a
POSIX-type connection produces an error.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/property.lisp b/src/property.lisp index cebc084..885a24d 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -69,11 +69,11 @@ (cdr propapp))) (defun collapse-types (&rest lists) - (if (member :posix (flatten lists)) :posix :lisp)) + (if (member :lisp (flatten lists)) :lisp :posix)) (defun collapse-propapp-types (&rest lists) - (if (member :posix (mapcan (curry #'mapcar #'propapptype) lists)) - :posix :lisp)) + (if (member :lisp (mapcan (curry #'mapcar #'propapptype) lists)) + :lisp :posix)) (defun propdesc (prop &rest args) (apply (get prop 'desc #'noop) args)) |