diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-18 09:21:19 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-18 09:23:04 -0700 |
| commit | 92f58e96e1edc9bc3944cb87d0ee5d3a94157824 (patch) | |
| tree | dfb90964a44dc92711ebbc40237ad8e6127d7316 /src/property.lisp | |
| parent | 5e304508e8708e7085c0dd5aad2f5f6f0ed5fc7b (diff) | |
| download | consfigurator-92f58e96e1edc9bc3944cb87d0ee5d3a94157824.tar.gz | |
add PROPAPPARGS and some Postfix properties
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/property.lisp b/src/property.lisp index 1bba39e..ebdfadb 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -63,6 +63,11 @@ (get (car propapp) 'ptype) :posix)) +(defun propappargs (propapp) + (if (member :orig-args (cadr propapp)) + (getf (cadr propapp) :orig-args) + (cdr propapp))) + (defun collapse-types (&rest lists) (if (member :posix (flatten lists)) :posix :lisp)) |