Re: [Emacs-diffs] trunk r116995: cl-lib defstruct introspection

[Stefan Monnier]

> Something like this. (This is the private code I was talking about, so
> it doesn't use the sames in the checked-in patch.)

> (defmacro* jez-with-slots (spec-list (type inst) &body body)
>   "Like `with-slots', but for structs."
>   (if (symbolp inst)
>       `(symbol-macrolet
>            ,(loop for spec in spec-list
>                   collect `(,spec (jez-slot-value ',type ,inst ',spec)))
>          ,@body)
>     (let ((inst-symbol (gensym "with-struct-slots")))
>       `(let ((,inst-symbol ,inst))
>          (jez-with-slots
>              ,spec-list ,inst-symbol ,@body)))))

Ah, I see now, thanks, yes that makes sense.


        Stefan


PS: Of course, I wouldn't implement it that way ;-)
I'd start by testing `inst' against `type' and then use straight (aref
...)  or (nth ...) for the accessors.
But indeed, you'd want to circumvent the usual accessors.