diff options
| -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)) |