Re: [Emacs-diffs] trunk r117007: Optimize cl-struct-slot-value; fix test

[Stefan Monnier]

> -  (elt inst (cl-struct-slot-offset struct-type slot-name)))
> +  ;; We could use `elt', but since the byte compiler will resolve the
> +  ;; branch below at compile time, it's more efficient to use the
> +  ;; type-specific accessor.
> +  (if (eq (cl-struct-sequence-type struct-type) 'vector)
> +      (aref inst (cl-struct-slot-offset struct-type slot-name))
> +    (nth (cl-struct-slot-offset struct-type slot-name) inst)))

It won't always resolve the (eq (cl-struct-sequence-type struct-type)
'vector) test at compile-time, tho.


        Stefan