anchor.diff:  (defun handle-infix% (name args)
     (format nil (format nil "~~{~~A~~^ ~(~A~) ~~}"
                         name)
  -          (mapcar #'clir->mlw args)
  -          ))
  +          (mapcar #'clir->mlw args)))
   
   (defun handle-replacement-funcall% (name args)
     (flet ((is-array-access (fname)
  
positive.code:   (:export :int)
    (:export :bool :true :false)
    (:export :*assume-verified* :*verify-only* :*external-functions* :*goal-set-hook* :*default-goal-set-hook*)
    (:export :define :lettype :letvar :letconst :let :let* :letfun :case :default "@" "@@")
    ;;; End IR keywords
  
  
  
negative.code: (defun handle-function-definition% (&rest args)
    (apply #'handle-function-definition%% "let" args))
  
  (defun handle-asserts% (args)
    (let ((formula (first args))
          (body (second args)))
      (format nil
              "~@<~{assert { ~A };~:@_~:}~A~:>"
              (mapcar #'clir-formula-to-string formula)
              (clir->mlw body))))
  
  (defmacro with-assertions ((pre-post-list function-body) &body body)
    (let ((assertions (gensym)))
      `(let ((,assertions (get-assertions ,function-body)))
  