- (while (not (< index (length (symbol-value row-variable))))
- (add-to-list row-variable (make-vector 6 nil)))
- (let ((sixel (elt (symbol-value row-variable) index)))
- (sixel-tag-bits sixel (- char 63) tag)))
+ (while (not (< index (length row)))
+ (push (make-vector 6 nil) row))
+ (let ((sixel (elt row (- (length row) 1 index))))
+ (sixel-tag-bits sixel (- char 63) tag))
+ row)