anchor.diff:  
   (in-package :serapeum/internal-definitions)
   
  -(defvar *in-let*)
  +(defvar *subenv*)
   (defvar *orig-form*)
  -(defvar *local-symbol-macros*)
   
   (defmacro nonlocal (&body body)
     `(progn ,@body))
  
positive.code:           ((defconst name expr &optional docstring)
             (expand-partially self `(defconstant ,name ,expr ,docstring)))
            ((defun name args &body body)
             (if *in-let*
                 (expand-partially self
                                   `(defalias ,name
                                      (named-lambda ,name ,args
  
negative.code:                (expand-partially self (expand-in-env form env))
                 ;; Remember `def' returns a symbol.
                 (progn
                   (shadow! self var)
                   (let ((expr (expand-in-env self expr env)))
                     (if (and
                          (or (constantp expr)
  