anchor.diff:  (define usual-size-suffix (elt insn-size-suffix value-scale))
   
   (defmarco (define-insn-2 name insn)
  -  `(define (,name out src dest . scale)
  -     (emit-insn-2 out ,insn src dest (and scale (car scale)))))
  +  (quasiquote
  +    (define ((unquote name) out src dest . scale)
  +      (emit-insn-2 out (unquote insn) src dest (and scale (car scale))))))
   
   (define (emit-insn-2 out insn src dest scale)
     (unless scale
  
positive.code:   (emit out "set~A ~A" cc (funcall reg 0)))
  
  (defmarco (define-insn-1 name insn)
    `(define (,name out oper . scale)
       (emit-insn-1 out ,insn oper (and scale (car scale)))))
  
  (define (emit-insn-1 insn oper scale)
    (unless scale
  
negative.code: ;;; instructions that clobber it implicitly.
  (define %alloc %b)
  
  (define general-registers (list %a %c %d %si %di))
  (define general-register-count (length general-registers))
  
  