diff options
Diffstat (limited to 'src/combinator.lisp')
| -rw-r--r-- | src/combinator.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index 0b51bd7..b720b67 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -261,6 +261,16 @@ property instead of applying it." :unapply (get psym 'papply) :args args))) +(define-function-property-combinator reapplied (propapp) + (:retprop :type (proptype (car propapp)) + :lambda (proplambda (car propapp)) + :desc (lambda-ignoring-args + (strcat "Reapplied: " (propapp-desc propapp))) + :hostattrs (lambda-ignoring-args (propapp-attrs propapp)) + :apply (lambda-ignoring-args + (unapply-propapp propapp) + (apply-propapp propapp)))) + (define-function-property-combinator desc (desc propapp) (:retprop :type (propapp-type propapp) :desc (lambda () desc) |