fix with-macro: then using (-body- some local args) the order got reversed by some changes
Mon Sep 28 17:40:17 PDT 2009 attila.lendvai@gmail.com
* fix with-macro: then using (-body- some local args) the order got reversed by some changes
diff -rN -u old-cl-def/definers.lisp new-cl-def/definers.lisp
--- old-cl-def/definers.lisp 2014-07-12 05:37:41.000000000 -0700
+++ new-cl-def/definers.lisp 2014-07-12 05:37:41.000000000 -0700
@@ -299,6 +299,8 @@
(progn
(push el inner-arguments/macro-body)
(push `(quote ,el) inner-arguments/fn-body))))
+ (reversef inner-arguments/macro-body)
+ (reversef inner-arguments/fn-body)
(bind ()
(dolist (arg args-to-remove-from-fn)
(removef fn-args arg))