anchor.diff:  
   (defmethod generate-instruction :around (instruction stream)
     (if (gethash instruction *processed-p-table*)
  -      (format stream "     JMP ~a~%"
  -	      (gethash instruction *label-table*))
  +      (add-code "JMP" (list (gethash instruction *label-table*)))
         (call-next-method)))
   
   (defmethod generate-instruction :before (instruction stream)
  
positive.code: 
  (defmethod generate-instruction
      ((instruction sicl-mir:return-instruction) stream)
    (format stream "     RET~%"))
  
  (defmethod generate-instruction
      ((instruction sicl-mir:funcall-instruction) stream)
  
negative.code:       (sicl-mir:immediate-input
         (etypecase input2
  	 (sicl-mir:register-location
  	  (add-code "CMP" (list (make-reg input2) (make-imm input1)))
  	  (assign-label (cadr successors))
  	  (add-code "JL" (list (gethash (cadr successors) *label-table*))))
  	 (sicl-mir:dynamic-location
  	  (add-code "CMP"
  		    (list (make-mem 'rbp (* -8 (1+ (sicl-mir:index input2))))
  			  (make-imm input1)))
  	  (assign-label (cadr successors))
  	  (add-code "JL" (list (gethash (cadr successors) *label-table*))))))
        (sicl-mir:register-location
         (etypecase input2
  	 (sicl-mir:immediate-input
  	  (add-code "CMP" (list (make-reg input1) (make-imm input2)))
  	  (assign-label (cadr successors))
  	  (add-code "JNL" (list (gethash (cadr successors) *label-table*))))
  	 (sicl-mir:register-location
  	  (add-code "CMP" (list (make-reg input1) (make-reg input2)))
  	  (assign-label (cadr successors))
  	  (add-code "JNL" (list (gethash (cadr successors) *label-table*))))
  	 (sicl-mir:dynamic-location
  	  (add-code "CMP"
  		    (list (make-reg input1)
  			  (make-mem 'rbp (* -8 (1+ (sicl-mir:index input2))))))
  	  (assign-label (cadr successors))
  	  (add-code "JNL" (list (gethash (cadr successors) *label-table*))))))
        (sicl-mir:dynamic-location
         (etypecase input2
  	 (sicl-mir:immediate-input
  	  (add-code "CMP"
  		    (list (make-mem 'rbp (* -8 (1+ (sicl-mir:index input1))))
  			  (make-imm input2)))
  	  (assign-label (cadr successors))
  	  (add-code "JNL" (list (gethash (cadr successors) *label-table*))))
  	 (sicl-mir:register-location
  	  (add-code "CMP"
  		    (list (make-mem 'rbp (* -8 (1+ (sicl-mir:index input1))))
  			  (make-reg input2)))
  	  (assign-label (cadr successors))
  	  (add-code "JNL" (list (gethash (cadr successors) *label-table*))))
  	 (sicl-mir:dynamic-location
  	  (add-code "MOV"
  		    (list (make-reg 'rax)
  			  (make-mem 'rbp (* -8 (1+ (sicl-mir:index input1))))))
  	  (add-code "CMP"
  		    (list (make-reg 'rax)
  			  (make-mem 'rbp (* -8 (1+ (sicl-mir:index input2))))))
  	  (assign-label (cadr successors))
  	  (add-code "JNL" (list (gethash (cadr successors) *label-table*)))))))))
  
  (defmethod generate-instruction
      ((instruction sicl-mir:s<=-instruction) stream)
  