From 0f176342245b5d1827d5dc1181d310c4bbc832c9 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 2 Apr 2022 14:48:38 -0700 Subject: replace uses of COLLAPSE-TYPES & drop the function Signed-off-by: Sean Whitton --- src/combinator.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'src/combinator.lisp') diff --git a/src/combinator.lisp b/src/combinator.lisp index c1a76a6..9a92362 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -98,7 +98,7 @@ Usage notes: ,@forms))))) (define-function-property-combinator eseqprops (&rest propapps) - (:retprop :type (collapse-types (mapcar #'propapptype propapps)) + (:retprop :type (combine-propapp-types propapps) :hostattrs (lambda () (mapc #'propappattrs propapps)) :apply (lambda () (apply-and-print propapps)) :unapply (lambda () (apply-and-print propapps t)))) @@ -106,7 +106,7 @@ Usage notes: (define-function-property-combinator eseqprops-until (condition &rest propapps) "Like ESEQPROPS, but if CONDITION is signalled, handle it simply by skipping remaining elements of PROPAPPS. CONDITION must subtype FAILED-CHANGE." - (:retprop :type (collapse-types (mapcar #'propapptype propapps)) + (:retprop :type (combine-propapp-types propapps) :hostattrs (lambda () (mapc #'propappattrs propapps)) :apply (lambda () (with-skip-failed-changes (:condition condition @@ -118,7 +118,7 @@ remaining elements of PROPAPPS. CONDITION must subtype FAILED-CHANGE." (apply-and-print propapps t))))) (define-function-property-combinator seqprops (&rest propapps) - (:retprop :type (collapse-types (mapcar #'propapptype propapps)) + (:retprop :type (combine-propapp-types propapps) :hostattrs (lambda () (mapc #'propappattrs propapps)) :apply (lambda () (with-skip-failed-changes () @@ -134,7 +134,7 @@ 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)) + (:retprop :type (combine-propapp-types propapps) :hostattrs (lambda () (mapc #'propappattrs propapps)) :apply (lambda () (with-skip-failed-changes () @@ -286,8 +286,7 @@ in order." (define-function-property-combinator on-change* (propapp on-change &optional unapply) (let ((prop (car propapp))) - (:retprop :type - (collapse-types (propapptype propapp) (propapptype on-change)) + (:retprop :type (combine-propapp-types (list propapp on-change)) :desc (get prop 'desc) :hostattrs (lambda (&rest args) (apply #'propattrs prop args) -- cgit v1.2.3