anchor.diff:  		    (let ((temp (new-temporary)))
   		      (setf next 
   			    (sicl-mir:make-return-instruction
  -			     (list temp) next))
  +			     (list temp)))
   		      (funcall constructor temps temp next)))
   		   (t
   		    (setf next (nil-fill (cdr results) next))
  
positive.code: 			   (let ((temp2 (new-temporary)))
  			     (setf next 
  				   (sicl-mir:make-return-instruction
  				    (list temp2) next))
  			     (sicl-mir:make-memref-instruction
  			      (car temps) temp2 next)))
  			  (t
  
negative.code:       context
      (ecase (length successors)
        (1 (cond ((eq results t)
  		(sicl-mir:make-return-instruction (list ast)))
  	       ((null results)
  		(warn "variable compiled in a context with no values")
  		(car successors))
  