anchor.diff:  			       temp location next))
   			(nil-fill (cdr results) next)))))))
         (compile-arguments
  -       (sicl-ast:argument-asts ast) (list temp) instruction))))
  +       (list (sicl-ast:form-ast ast)) (list temp) instruction))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code:   (with-accessors ((results results)
  		   (successors successors))
        context
      (let* ((temp (make-temp (car (sicl-ast:argument-asts ast))))
  	   (instruction
  	     (ecase (length successors)
  	       (1 (let ((next (car successors)))
  		    (cond ((null results)
  			   (warn "LOAD-CDR operation in a context of no results.")
  			   next)
  			  ((eq results t)
  			   (let ((temp2 (sicl-mir:new-temporary)))
  			     (setf next 
  				   (sicl-mir:make-return-instruction
  				    (list temp2)))
  			     (sicl-mir:make-load-cdr-instruction
  			      temp temp2 next)))
  			  (t
  			   (setf next (nil-fill (cdr results) next))
  			   (sicl-mir:make-load-cdr-instruction
  
negative.code: 			       temp location next))
  			(nil-fill (cdr results) next)))))))
        (compile-arguments
         (list (sicl-ast:form-ast ast)) (list temp) instruction))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  