anchor.diff:           (incf (lexical-variable-write-count var))
            (pushnew *current-lambda* (lexical-variable-used-in var))
            (push (make-instance 'ast-setq
  +                              :optimize (optimize-qualities-in-environment env)
                                 :variable var
                                 :value (pass1-form wrapped-value env))
                  forms))
  
positive.code:                           (error-program-error "Attempt to bind constant ~S as a symbol-macro." name))
                        collect (list name
                                      (make-instance 'symbol-macro
                                                     :name name
                                                     :expansion expansion)))))
          (pass1-form `(progn ,@body) (extend-environment env
  
negative.code:                                   :lambda-list lambda-list
                                    :enable-keys enable-keys
                                    :allow-other-keys allow-other-keys
                                    :optimize (optimize-qualities-in-environment optimize-env)
                                    :plist (list :declares declares)))
               (*current-lambda* info)
               (aux-bindings '()))
          ;; Add required, optional and rest arguments to the environment & lambda.
  