anchor.diff:  
   (defmethod convert-special
       ((symbol (eql 'let*)) form env)
  -  (cleavir-code-utilities:check-form-proper-list form)
  -  (cleavir-code-utilities:check-argcount form 1 nil)
     (destructuring-bind (bindings &rest body) (cdr form)
  -    (check-binding-forms bindings)
       (if (= (length bindings) 1)
   	(convert-simple-let (car bindings) body env)
   	(let* ((first (car bindings))
  
positive.code: ;;; Converting IF.
  
  (defmethod convert-special ((symbol (eql 'if)) form env)
    (cleavir-code-utilities:check-form-proper-list form)
    (cleavir-code-utilities:check-argcount form 2 3)
    (cleavir-ast:make-if-ast
     (convert (cadr form) env)
     (convert (caddr form) env)
  
negative.code: 
  (defmethod convert-special
      ((symbol (eql 'tagbody)) form env)
    (let ((tag-asts
  	  (loop for item in (cdr form)
  		when (symbolp item)
  