anchor.diff:  	 (temp1 (cleavir-ir:new-temporary))
   	 (temp2 (cleavir-ir:new-temporary)))
       ;; Insert the instruction that takes the CAR of the
  -    ;; function cell. 
  +    ;; function cell.
       (cleavir-ir:insert-instruction-before
        (cleavir-ir:make-car-instruction
         temp1 output instruction)
  
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: ;;; 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.
  (defun process-constants (initial-instruction)
    (let ((static-env (cleavir-ir:new-temporary))
  	(table (make-hash-table :test #'eq))
  