diff options
-rw-r--r-- | src/combinator.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index 4dcd878..bcba1c3 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -210,8 +210,8 @@ ON-CHANGE in order." (if (eql :no-change (propappunapply (cons (car propapp) args))) :no-change - (dolist (propapp (reverse propapps)) - (propappunapply propapp)))) + (dolist (propapp propapps) + (propappapply propapp)))) :args (cdr propapp))) (defmacro as (user &body properties) |