anchor.diff:          (hoisted-var? self var)))
     (:method in-subenv? (self)
       "Are we within a binding form?"
  -    (or *subenv* global-symbol-macros))
  +    (or (not (subenv-empty?))
  +        global-symbol-macros))
     (:method at-beginning? (self)
       "Return non-nil if this is the first form in the `local'."
       (not (or exprs vars hoisted-vars labels (in-subenv? self))))
  
positive.code:   #+sb-package-locks (:implement :serapeum :serapeum/internal-definitions))
  
  (in-package :serapeum/internal-definitions)
  
  (defvar *subenv*)
  
  (defstruct-read-only (unbound
                        (:constructor unbound (var)))
  
negative.code: 
  The `local' macro is loosely based on Racket's support for internal
  definitions."
    (multiple-value-bind (body decls) (parse-body orig-body)
      (catch 'local
        (generate-internal-definitions
         (make 'internal-definitions-env
               :decls decls
               :env env)
         body))))
  
  (defmacro block-compile ((&key entry-points
                                 (block-compile t))
  