anchor.diff:  ;;; Constants that are replaced in the program are collected in a list
   ;;; of ENTRIES.  Each entry is either of the form (FUNCTION
   ;;; <function-name>) or (CONSTANT <constant>).  The list of entries is
  -;;; returned. 
  +;;; returned.
   (defun process-constants (initial-instruction)
     (let ((static-env (cleavir-ir:new-temporary))
   	(table (make-hash-table :test #'eq))
  
positive.code: 
  ;;;; The purpose of this component is to remove non-trivial literal
  ;;;; constants.  Here, non-trivial means that it can not be
  ;;;; represented as an immediate value for the particular processor.  
  ;;;;
  ;;;; It is assumed that trivial constants have already been replaced
  ;;;; by immediate inputs, so that the constants remaining in the
  
negative.code: 	 (temp1 (cleavir-ir:new-temporary))
  	 (temp2 (cleavir-ir:new-temporary)))
      ;; Insert the instruction that takes the CAR of the
      ;; function cell.
      (cleavir-ir:insert-instruction-before
       (cleavir-ir:make-car-instruction
        temp1 output instruction)
  