anchor.diff:  (defun make-temp (argument)
     (cond ((typep argument 'sicl-env:lexical-location)
   	 argument)
  +	((typep argument 'sicl-ast:constant-ast)
  +	 (sicl-mir:make-constant-input (sicl-ast:value argument)))
   	((typep argument 'sicl-ast:immediate-ast)
   	 (sicl-mir:make-immediate-input (sicl-ast:value argument)))
   	((typep argument 'sicl-ast:load-time-value-ast)
  
positive.code: 	(car successors)
  	(sicl-mir:make-assignment-instruction
  	 (sicl-mir:make-immediate-input (sicl-ast:value ast))
  	 (car results)
  	 (car successors)))))
  
  
negative.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Compile a IMMEDIATE-AST.
  ;;;
  
  (defmethod compile-ast ((ast sicl-ast:immediate-ast) context)
  