anchor.diff:    (sicl-code-utilities:check-form-proper-list form)
     (sicl-code-utilities:check-argcount form 3 3)
     (destructuring-bind (arg1 arg2 variable) (cdr form)
  -    (cleavir-ast:make-fixnum-+-ast (convert arg1 environment)
  -				   (convert arg2 environment)
  -				   (convert variable environment))))
  +    (cleavir-ast:make-fixnum-add-ast (convert arg1 environment)
  +				     (convert arg2 environment)
  +				     (convert variable environment))))
   
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:   (sicl-code-utilities:check-form-proper-list form)
    (sicl-code-utilities:check-argcount form 2 2)
    (destructuring-bind (arg1 arg2) (cdr form)
      (cleavir-ast:make-fixnum-<-ast (convert arg1 environment)
  				   (convert arg2 environment))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code:   (sicl-code-utilities:check-form-proper-list form)
    (sicl-code-utilities:check-argcount form 3 3)
    (destructuring-bind (arg1 arg2 variable) (cdr form)
      (cleavir-ast:make-fixnum-sub-ast (convert arg1 environment)
  				     (convert arg2 environment)
  				     (convert variable environment))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  