From 7988cad98d72ac07faec7e538cc9c21c02b82bc6 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 2 Apr 2021 16:34:15 -0700 Subject: add OS:TYPECASE and OS:HOST-TYPECASE Signed-off-by: Sean Whitton --- src/combinator.lisp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/combinator.lisp') 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) -- cgit v1.2.3