- ((i 'copy-to j n)
- (vector-set! opcodes j (vector-ref opcodes i))
- (vector-set! modifiers j (vector-ref modifiers i))
- (vector-set! A-modes j (vector-ref A-modes i))
- (vector-set! A-nums j (vector-ref A-nums i))
- (vector-set! B-modes j (vector-ref B-modes i))
- (vector-set! B-nums j (vector-ref B-nums i))
- (vector-set! names j n))
- ((i 'copy-from-instr! instr)
- (vector-set! opcodes i (instr-opcode instr))
- (vector-set! modifiers i (instr-modifier instr))
- (vector-set! A-mode i (instr-A-mode instr))
- (vector-set! A-num i (instr-A-num instr))
- (vector-set! B-mode i (instr-B-mode instr))
- (vector-set! B-num i (instr-B-num instr))
- (vector-set! names i (instr-name instr)))
- ((i 'opcode) (vector-ref opcodes i))
- ((i 'modifier) (vector-ref modifiers i))
- ((i 'A-mode) (vector-ref A-modes i))
- ((i 'A-num) (vector-ref A-nums i))
- ((i 'B-mode) (vector-ref B-modes i))
- ((i 'B-num) (vector-ref B-nums i))
+ ((i 'set-from! j n)
+ ((vector-ref core-vec i) 'set-from! (vector-ref core-vec j))
+ (vector-set! names-vec i n))
+ ((i 'set-from-instr! instr n)
+ ((vector-ref core-vec i) 'set-from! instr)
+ (vector-set! names-vec i n))
+ ((i 'set! v x n)
+ ((vector-ref core-vec i) 'set! v x)
+ (vector-set! names-vec i n))