anchor.diff:        ,@(mapcar
            (lambda (case)
              (cons (first case)
  -                 (formatexpand-forms-partially (rest case) ~)))
  +                 (formatexpand-forms (rest case) ~)))
            cases)))
   
     (defun expand-letlike (operator ~ bindings body)
  
positive.code: 
  (define-~format if (~) (test then &optional (else nil elsep))
    `(if ,test
         ,(formatexpand-partially then ~)
         ,@(when elsep (list (formatexpand-partially else ~)))))
  
  (define-~format when (~) (test &rest body)
    `(when ,test
       ,@(formatexpand-forms-partially body ~)))
  
  (define-~format unless (~) (test &rest body)
    `(unless ,test
       ,@(formatexpand-forms-partially body ~)))
  
  (define-~format cond (~) (&rest clauses)
    `(cond ,@(mapcar
              (lambda (clause)
                (cons (first clause)
                      (formatexpand-forms-partially (rest clause) ~)))
                     clauses)))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
  
negative.code:         (lambda (binding)
            (if (consp binding)
                (cons (first binding)
                      (formatexpand-forms (rest binding) ~))
                binding))
          bindings)
        ,@body)))
  