diff options
Diffstat (limited to 'src/combinator.lisp')
-rw-r--r-- | src/combinator.lisp | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index ee70d62..3c1d21d 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -33,6 +33,24 @@ (return-from ,name (list* psym args))))) ,@forms)))) +(defmacro define-choosing-property-combinator + (name lambda-list &key type choose) + `(define-function-property-combinator ,name ,lambda-list + (flet ((choose-propapp () ,choose)) + (:retprop :type ,type + :desc (lambda (&rest args) + (declare (ignore args)) + (propappdesc (choose-propapp))) + :hostattrs (lambda (&rest args) + (declare (ignore args)) + (propappattrs (choose-propapp))) + :apply (lambda (&rest args) + (declare (ignore args)) + (propappapply (choose-propapp))) + :unapply (lambda (&rest args) + (declare (ignore args)) + (propappunapply (choose-propapp))))))) + (defmacro with-skip-failed-changes (&body forms) `(handler-bind ((failed-change (lambda (c) |