anchor.diff:            import-list))
   
   (defun generate-module (verification-unit parsed-forms &key stream)
  +  "Generates a WhyML module from a VERIFICATION-UNIT and a list of
  +PARSED-FORMS, outputing the result in STREAM."
     (let ((theory-name (first verification-unit))
           (imports (imports->mlw '("int.Int"
                                    "ref.Ref"
  
positive.code: 
  
  (defun clir->mlw (form)
    (typecase form
      (symbol (format nil "~(~A~)" form))
      (cons (case (car form)
  
negative.code: (cl:in-package :ir.mlw.formatter)
  
  (defun get-assertions (function-body)
    "Return the (possibly NIL) assertions in a FUNCTION-BODY."
    (let* ((d (cdr (assoc 'declare function-body)))
           (a (cdr (assoc 'assertion d)))
           (pre (second (assoc 'precd a)))
  