(define-source-transform %svset (vector index value)
(let ((elt-type (or (when (symbolp vector)
(let ((var (lexenv-find vector vars)))
(define-source-transform %svset (vector index value)
(let ((elt-type (or (when (symbolp vector)
(let ((var (lexenv-find vector vars)))