anchor.diff:          (t
            (change-made)
            (body form))))
  +
  +(defun let-binds-special-variable-p (let-form)
  +  (some (lambda (x) (typep (first x) 'special-variable))
  +        (bindings let-form)))
   
   (defmethod simp-form ((form ast-multiple-value-bind))
     ;; If no variables are used, or there are no variables then
  
positive.code:                      (let ((,variable ,(first (last (ast-forms initform))))
                             ,@(subseq (bindings form) (1+ binding-position)))
                         ,(ast-body form))))))
         when (typep initform 'ast-let)
         do
           (change-made)
           (return-from simp-form
  
negative.code:                        ,(first (last (ast-forms arg)))
                         ,@(subseq (arguments form) (1+ arg-position))))))
       when (and (typep arg 'ast-let)
                 (not (let-binds-special-variable-p arg)))
       do
         (change-made)
         (return-from simp-form
  