Re: [Gcl-devel] Re: possible dotimes enhancement

[Paul F. Dietz]

Camm Maguire wrote:

> Paul, does this mean I can do something like
>
> aref -> si::arefold
>
> (defmacro aref (a &rest sub &aux i new-sub) 
>   (dolist (i sub)
>     (push `(the fixnum ,i) new-sub))
>   `(arefold ,a ,@new-sub))
>
> ???

Yes, although it would have to be a compiler macro, since
the user can do #'aref.

(The i aux parameter is redundant, btw, and you need to reverse
new-sub.)

        Paul