diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-18 10:22:43 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-18 10:22:43 -0700 |
| commit | 671a591ffcb55958c5b71c6838810edff8c14884 (patch) | |
| tree | bfaf735698a5ed86e61bb5bf6533b66444176fcc /src/property/os.lisp | |
| parent | bfd11d5198590ee0c06a9e4dd8bbfa3992ccae33 (diff) | |
| download | consfigurator-671a591ffcb55958c5b71c6838810edff8c14884.tar.gz | |
OS:TYPECASE, OS:HOST-TYPECASE: use &BODY instead of &REST
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/os.lisp')
| -rw-r--r-- | src/property/os.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/os.lisp b/src/property/os.lisp index db4c2a2..9c4ce74 100644 --- a/src/property/os.lisp +++ b/src/property/os.lisp @@ -104,10 +104,10 @@ (declare (ignore args)) (propappunapply (choose-propapp)))))) -(defmacro typecase (&rest cases) +(defmacro typecase (&body cases) `(host-typecase nil ,@cases)) -(defmacro host-typecase (host &rest cases) +(defmacro host-typecase (host &body cases) `(os-typecase* ,host ,@(loop for case in cases |