From 72c58e831b48e53316187435c82b8c2cb1621007 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 16 Mar 2021 13:05:29 -0700 Subject: add WITH-REQUIREMENTS Signed-off-by: Sean Whitton --- src/propspec.lisp | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/propspec.lisp') diff --git a/src/propspec.lisp b/src/propspec.lisp index 0a93e8e..f295081 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -288,6 +288,12 @@ application specification expression to a property application specification." (invoke-restart 'skip-property)))) (apply-and-print propapps))))) +(defmacro with-requirements (propapp &body requirements) + "Apply PROPAPP only after applying each dependency in REQUIREMENTS. +Each item in REQUIREMENTS implicitly depends on the one preceding it, i.e., we +apply the elements of REQUIREMENTS in reverse order." + `(eseqprops ,@(reverse requirements) ,propapp)) + (define-function-property-combinator silent-seqprops (&rest propapps) (retprop :type (collapse-types (mapcar #'propapptype propapps)) :check (constantly nil) -- cgit v1.2.3