anchor.diff:    ())
   
   (defmethod sicl-program:registers ((backend backend-arm))
  -  *registers*)
  +  (loop for i in '(0 1 2 3 4 5 6 7 8 9 10 11 12 14)
  +	collect (aref *registers* i)))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: 
  (defun convert-instruction-graph (initial-instruction)
    (let ((table (make-hash-table :test #'eq))
  	(*linkage-vector-lexical* (sicl-mir:new-temporary))
  	(*code-object-lexical* (sicl-mir:new-temporary))
  	(*return-address-lexical* (sicl-mir:new-temporary))
  
negative.code: (defvar *r6-lexical*)
  (defvar *r7-lexical*)
  (defvar *r8-lexical*)
  (defvar *r10-lexical*)
  (defvar *r11-lexical*)
  
  (defvar *linkage-vector-lexical*)
  