fix with-macro definer regression
Thu Feb 26 02:08:40 PST 2009 attila.lendvai@gmail.com
* fix with-macro definer regression
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-def/definers.lisp new-cl-def/definers.lisp
--- old-cl-def/definers.lisp 2014-07-26 00:08:08.000000000 -0700
+++ new-cl-def/definers.lisp 2014-07-26 00:08:08.000000000 -0700
@@ -294,7 +294,7 @@
(push (second el) inner-arguments/fn-body))
(progn
(push el inner-arguments/macro-body)
- (push el inner-arguments/fn-body))))
+ (push `(quote ,el) inner-arguments/fn-body))))
(bind ()
(dolist (arg args-to-remove-from-fn)
(removef fn-args arg))
@@ -317,7 +317,7 @@
(list macro-args))))
&body ,with-body)
`(,',call-funcion-name
- (named-lambda ,',body-fn-name ,',inner-arguments/fn-body
+ (named-lambda ,',body-fn-name ,(list ,@inner-arguments/fn-body)
,@,with-body)
,,@funcall-list
,@,rest-variable-name)))))))))))