anchor.diff:         (defun entry-point ...)) "
     `(local
        ,@(butlast body)
  -     (nonlocal ,@(last body))))
  +     (without-internal-definitions ,@(last body))))
   
   (defun initialize-binds-from-decls (binds-in decls &optional env)
     "Given a list of bindings and a set of declarations, look for any
  
positive.code:     (if (atom form) (step-expansion self form)
          (destructuring-case-of internal-definition-form form
            ;; A specific form to stop expansion.
            ((nonlocal &body _) (declare (ignore _))
             (expansion-done self form))
  
            ;; DEFINITION FORMS.
  
negative.code: 
  (deftype internal-definition-form ()
    '(member
      without-internal-definitions
      defmacro define-symbol-macro
      declaim
      def
  