anchor.diff:    (cond
       ((literal-p form) (inlined-literal form))
       ((reference-p form) (inlined-reference form))
  -    ((sub-p form) (inlined-sub form))
  +    ((sub-p form) (inlined-sub env form))
       ((ifeq-p form) (inlined-ifeq env form))
       ((let-p form) (inlined-let env form))
       ((letrec-p form) (inlined-letrec env form))
       ((with-args-p form) (inlined-with-args env form))
       ((loop-p form) (inlined-loop env form))
  -    ((setreg-p form) (inlined-setreg form))
  +    ((setreg-p form) (inlined-setreg env form))
       ((apply-p form) (inlined-apply env form))
       (t (error "The value ~S is an invalid form." form))))
   
  
positive.code:     (unless (null args)
        (error "The intrrupt function must have no arguments.")))
    (let* ((fundefs (program-fundefs-excluding program name))
           (body1 (if (member name '(main init intr))
                      (flatten-pic body)
                      (flatten-pic `(with-args ,args ,body))))
           (insts (with-output-to-string (s)
                    (let ((*standard-output* s))
                      (cond
  
negative.code:       (error "The macro ~S not defined." name)))
  
  (defun program-disassemble (program name)
    (destructuring-bind (args body insts) (program-by-name program name)
      (declare (ignore args body))
      (princ insts)
      (values)))
  
  