diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-05 10:29:49 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-05 10:29:49 -0700 |
| commit | 9d6deedee8f509ea85a1359bfc3bdde0e45cace3 (patch) | |
| tree | 49d360c5fbb8de6cc2f8f6a3a9bfe816e36f1a4b /src/property/os.lisp | |
| parent | ca0f24a72aa135bd0fbd1a32fe6905d6babe1cf2 (diff) | |
| download | consfigurator-9d6deedee8f509ea85a1359bfc3bdde0e45cace3.tar.gz | |
OS:TYPECASE, OS:ETYPECASE: accept more than one propapp in clauses
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/os.lisp')
| -rw-r--r-- | src/property/os.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/property/os.lisp b/src/property/os.lisp index f86cb2a..d1aeb2b 100644 --- a/src/property/os.lisp +++ b/src/property/os.lisp @@ -114,7 +114,8 @@ ,@(loop for case in cases collect `',(intern (symbol-name (car case)) (find-package :consfigurator.property.os)) - collect (cadr case)))) + collect (let ((forms (cdr case))) + (if (cdr forms) `(eseqprops ,@forms) (car forms)))))) (defmacro typecase (&body cases) `(host-typecase* os-typecase* nil ,@cases)) |