anchor.diff:          (emit-extend-sign-bit out %d)
           (emit-idiv out %c)
           (emit-convert-value out %d dest in-frame-base out-frame-base))))
  -
  -(define (emit-scale-number out scale oper)
  -  (unless (= scale number-tag-bits)
  -    (if (< scale number-tag-bits)
  -        (emit-sar out (immediate (- number-tag-bits scale)) oper)
  -        (emit-shl out (immediate (- scale number-tag-bits)) oper))))
   
   ;;; Strings and vectors
   
  
positive.code:          (retaddr (second ac-regs)))
      ;; comment this
      (codegen arg-count (dest-value ac) in-frame-base out-frame-base ac-regs out)
      (emit-lea out (dispmem 0 1 %bp ac) ac)
      (emit-mov out (dispmem 0 1 %bp) retaddr)
      (emit-mov out (mem %bp) %bp)
      (emit-mov out ac %sp)
      (emit-mov out retaddr (mem ac))
  
negative.code: 
  (define-codegen (return attrs body)
    (codegen body (dest-value %funcres) in-frame-base out-frame-base regs out)
    (emit out "leave ; ret $~D" (* value-size (attr-ref attrs 'nparams))))
  
  (define-reg-use (varargs-return attrs body arg-count)
    (reg-use body dest-type-value)
  