anchor.diff:                                     (multiple-value-prog1 ,(frob (rest bindings))
                                        (call sys.int::%%unbind)))
                                   form)))))
  -                     (t (lsb-form (body form))))))
  +                     (t
  +                      (let ((*special-bindings* updated-special-bindings))
  +                        (lsb-form (body form)))))))
         (frob (bindings form)))))
   
   (defmethod lsb-form ((form ast-multiple-value-bind))
  
positive.code:                                 form))
                            (special-variable
                             (push (list :special (first binding))
                                   *special-bindings*)
                             (ast `(progn
                                     (call sys.int::%%bind
                                           (quote ,(name variable))
  
negative.code:        form))
  
  (defmethod lsb-form ((form ast-let))
    (let ((updated-special-bindings *special-bindings*))
      (labels ((frob (bindings)
                 (cond (bindings
                        (let* ((binding (first bindings))
  