[Bese-devel] ucw:a & action parameters other than self

[Aleksandar Bakic]

It seems to me that the problem with both could be that you need to rebind
variable i in order to make a new binding for each value. That is, wrap the do
expression in one (let ((i i)) ...).

Alex

--- Evrim ULU <evrim at core.gen.tr> wrote:

> it seems below snippet solves the problem, don't sure if it is the best
> solution in this case.
> 
>  (loop
>      for i from 1 to number-of-pages
>      do
>      (if (eq current-page i)
>          (<:as-html i " ")
>          (eval `(<ucw:a :action (scroll-to-page ,self ,i)
>                 :id ,(format nil "page-~A" i)
>                 (<:as-html ,i " ")))))
> 
> >--- inside render ---
> >(loop
> >     for i from 1 to number-of-pages
> >     do
> >     (if (eq current-page i)
> >         (<:as-html i " ")
> >         (<ucw:a :action (scroll-to-page self i)
> >             :id (format nil "page-~A" i)
> >             (<:as-html i " "))))
> >---- render ends ---
> >
> >(defaction scroll-to-page ((self pager) to-page)
> > bla bla..)
> >  
> >
> 
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
> 


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com