Re: compiler bug: let with name clash

Here is another incarnation of the problem:

(dm mysum (_ . args)
     `(+ ,@args) )

(defun some-func (mysum)
   ((-idx1- (-double-)) mysum)
   (let ((s0 (mysum 0)))
     ((-double-) s0)
     ;; calculate
     s0))

(dhc-make () some-func)

? (some-func [1 2 3])
= 0


Could somebody please point me to the code that needs fixing?

Thanks,
Ralf



On Sat, 03 Dec 2005, Ralf Juengling wrote:

> Try to compile the code below. 'mysum' gets macro-expanded
> by the compiler where it shouldn't.
>
> ralf
>
>
> (dm mysum (_ . args)
>    `(+ ,@args) )
>
> (defun some-func ()
>    (let ((mysum 0))
>      ((-double-) mysum)
>      ;; calculate
>      mysum))
>
> (dhc-make ()
>  	  some-func)
>


-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642