anchor.diff:  	      (aref *registers* 1)
   	      (aref *registers* 2)
   	      (aref *registers* 3)
  -	      (aref *registers* 4)
  -	      (aref *registers* 5)
  -	      (aref *registers* 6)
  -	      (aref *registers* 7)
  -	      (aref *registers* 8)
  -	      (aref *registers* 9)
  -	      (aref *registers* 11)
   	      (aref *registers* 12)
  -	      (aref *registers* 14)))
  -  ;; Generate code for moving the callee-saved registers to lexical
  -  ;; variables.
  -  (sicl-mir:insert-instruction-after
  -   (sicl-mir:make-assignment-instruction
  -    (aref *registers* 4) *r4-lexical* (car (sicl-mir:successors instruction)))
  -   instruction)
  -  (sicl-mir:insert-instruction-after
  -   (sicl-mir:make-assignment-instruction
  -    (aref *registers* 5) *r5-lexical* (car (sicl-mir:successors instruction)))
  -   instruction)
  -  (sicl-mir:insert-instruction-after
  -   (sicl-mir:make-assignment-instruction
  -    (aref *registers* 6) *r6-lexical* (car (sicl-mir:successors instruction)))
  -   instruction)
  -  (sicl-mir:insert-instruction-after
  -   (sicl-mir:make-assignment-instruction
  -    (aref *registers* 7) *r7-lexical* (car (sicl-mir:successors instruction)))
  -   instruction)
  -  (sicl-mir:insert-instruction-after
  -   (sicl-mir:make-assignment-instruction
  -    (aref *registers* 8) *r8-lexical* (car (sicl-mir:successors instruction)))
  -   instruction)
  -  (sicl-mir:insert-instruction-after
  -   (sicl-mir:make-assignment-instruction
  -    (aref *registers* 11) *r11-lexical* (car (sicl-mir:successors instruction)))
  -   instruction)
  -  ;; Generate code for moving the return address to a lexical
  -  ;; variable.
  -  (sicl-mir:insert-instruction-after
  -   (sicl-mir:make-assignment-instruction
  -    (aref *registers* 14)
  -    *return-address-lexical*
  -    (car (sicl-mir:successors instruction)))
  -   instruction)
  +	      *r4-lexical*
  +	      *r5-lexical*
  +	      *r6-lexical*
  +	      *r7-lexical*
  +	      *r8-lexical*
  +	      *r10-lexical*
  +	      *r11-lexical*
  +	      *return-address-lexical*))
     ;; Generate code for moving the static environment argument to a
     ;; lexical variable.
     (sicl-mir:insert-instruction-after
  
positive.code: 	     instruction)
  	    instruction)
  	   (setf (car rest) (aref *registers* i)))
    (push *return-address-lexical* (sicl-mir:inputs instruction)))
  
  (defmethod convert-instruction
      ((instruction sicl-mir:load-constant-instruction))
  
negative.code:   ())
  
  (defmethod sicl-program:registers ((backend backend-arm))
    (loop for i in '(0 1 2 3 4 5 6 7 8 9 10 11 12 14)
  	collect (aref *registers* i)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  