Hi Sam,<br><br><div class="gmail_quote">On Thu, Aug 25, 2011 at 11:51 PM, Sam Steingold <span dir="ltr"><<a href="mailto:sds@gnu.org">sds@gnu.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
> * Erik Huelsmann <ruhryf@tznvy.pbz> [2011-08-25 23:09:05 +0200]:<br>
<div class="im">><br>
> (defmacro var (name &optional value docs)<br>
>    `(defparameter ,name ,@(when value (list value))))<br>
<br>
</div>(macroexpand-1 '(var foo))<br>
==><br>
(DEFPARAMETER FOO) ;<br>
T<br>
<br>
defparameter requires the second argument.<br>
<div class="im"><br>
> (defun make-var (the-name))<br>
><br>
> (defun foo (var-ref)<br>
>   (flet ((var (x) (second x)))<br>
>      `(make-var ,(var x))))<br>
<br>
</div>do you mean<br>
<div class="im"><br>
(defun foo (var-ref)<br>
  (flet ((var (x) (second x)))<br>
</div>     `(make-var ,(var var-ref))))<br></blockquote><div><br></div><div>Yup. I did mean that.</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
??<br>
<div class="im"><br>
> Any ideas about translating this into a good test to be committed?<br>
<br>
</div>I am sorry, it is not clear what the code's intended behavior is.<br><font class="Apple-style-span" color="#888888"><br></font></blockquote><div><br></div><div>Well, the code is a fragment from Parenscript. It's not really trying to achieve anything, other than to test that the macro expansion for the var macro isn't triggered. Until a few days ago, the above snipped would break on compilation with a debugger backtrace showing that the compiler was trying to expand the VAR macro somewhere mid-code (incorrectly, as it is used within the scope of the flet which should shadow the global macro VAR.</div>
<div><br></div><div>I hope this explanation helps to get a better picture of what I'm trying to achieve.</div><div><br></div><div><br></div><div>Regards,</div><div><br></div><div>Erik.</div></div>