anchor.diff:    (print `(%load ,pathname))
     (dolist (i (with-open-file (s pathname)
                  (%load-r s)))
  -    (%eval i)))
  +    (%eval (quasiquote-expand (%%macroexpand i)))))
   
   
   ;;;; The user package.
   
   (in-package :tre)
   
  -(defun macroexpand (x)
  -  (%%macroexpand x))
  +(defun eval (x) (%eval x))
  +(defun macroexpand (x) (%%macroexpand x))
   
   (%load "environment/env-load-cl.lisp")
  
positive.code:       x))
  
  (defun %eval (x)
    (eval (backquote-expand (make-cl-lambdas (%%macroexpand x)))))
  
  ;;; Reader
  
  
negative.code: ;;; Things we have to implement ourselves.
  (defconstant +implementations+
      '(%set-atom-fun cpr rplacp %load atan2 pow quit string-concat %load
        %eval %defun early-defun %defvar %defmacro
        ? functional
        builtin? macro?
        %%macroexpand %%macrocall %%%macro?
  