anchor.diff:  (defun walk-lambda-list (lambda-list parent env &key allow-specializers)
     (flet ((extend-env (argument)
                    (unless (typep argument 'allow-other-keys-function-argument-form)
  -                   (setf env (register env :let (name argument) argument)))))
  +                   (extend env :let (name argument) argument))))
       (let ((state :required)
             (arguments '()))
         (dolist (argument lambda-list)
  
positive.code:                                  (second form)))
      (dolist* ((var . value) (binds let))
        (declare (ignore value))
        (setf env (register env :let var :dummy)))
      (multiple-value-setf ((body let) nil (declares let)) (walk-implict-progn let (cddr form) env :declare t))))
  
  (defclass let*-form (variable-binding-form)
  
negative.code:                                      :parent labels
                                       :source (list* name arguments body))
           do (push (cons name lambda) (binds labels))
           do (extend env :flet name lambda))
        (setf (binds labels) (nreverse (binds labels)))
        (loop
           for form in binds
  