(let ((g!string (gensym))
(g!index (gensym))
(g!value (gensym)))
- (list (list g!string g!index)
- (list string index)
- (list g!value)
- `(aset ,g!string ,g!index ,g!value)
- `(char ,g!string ,g!index))))
+ (values (list g!string g!index)
+ (list string index)
+ (list g!value)
+ `(aset ,g!string ,g!index ,g!value)
+ `(char ,g!string ,g!index))))