- (let ((vector-offset (+ (size-of 'int) (size-of 'pointer))))
- `(with-memory (,var (+ ,(size-of 'int) ,(size-of 'pointer) (* ,(size-of 'int) (length ,path))))
+ (let* ((pointer-offset (adjust-offset (size-of 'int) 'pointer))
+ (vector-offset (adjust-offset (+ pointer-offset (size-of 'pointer)) 'int)))
+ `(with-memory (,var (+ ,vector-offset (* ,(size-of 'int) (length ,path))))