diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-02 16:34:15 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-02 16:34:15 -0700 |
| commit | 7988cad98d72ac07faec7e538cc9c21c02b82bc6 (patch) | |
| tree | f5ec2ae5e4e919c15941a9b78d9bd4fc8ba65a3c /src/combinator.lisp | |
| parent | 76c3ac60450fb144bf6cfd0fb4197b91af5a3f87 (diff) | |
| download | consfigurator-7988cad98d72ac07faec7e538cc9c21c02b82bc6.tar.gz | |
add OS:TYPECASE and OS:HOST-TYPECASE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
| -rw-r--r-- | src/combinator.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index 3c1d21d..9f209c8 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -20,6 +20,11 @@ ;;;; Property combinators +(defprop noop :posix (&rest args) + "A property which accepts any number of arguments and does nothing." + (:desc (declare (ignore args)) "No-op property") + (:hostattrs (declare (ignore args)))) + (defmacro define-function-property-combinator (name args &body body) (multiple-value-bind (forms declarations docstring) (parse-body body :documentation t) |