diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 14:48:38 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 14:50:47 -0700 |
| commit | 0f176342245b5d1827d5dc1181d310c4bbc832c9 (patch) | |
| tree | 935003c420c8d9de719ddfedfd697733cfbe2199 /src/property.lisp | |
| parent | 31ec2231bb0882d2a10fd141f3d1e03b6c4e47df (diff) | |
| download | consfigurator-0f176342245b5d1827d5dc1181d310c4bbc832c9.tar.gz | |
replace uses of COLLAPSE-TYPES & drop the function
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/property.lisp b/src/property.lisp index aca6bbd..23587d6 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -68,8 +68,6 @@ (getf (cadr propapp) :orig-args) (cdr propapp))) -(defun collapse-types (&rest lists) - (if (member :lisp (flatten lists)) :lisp :posix)) (defun combine-propapp-types (&rest lists) (if (member :lisp (mapcan (curry #'mapcar #'propapptype) lists)) |