anchor.diff:  ;;; Things we have to implement ourselves.
   (defconstant +implementations+
       '(%set-atom-fun cpr rplacp %load atan2 pow quit string-concat %load
  -      %defun early-defun %defvar %defmacro
  +      %eval %defun early-defun %defvar %defmacro
         ? functional
         builtin? macro?
         %%macroexpand %%macrocall %%%macro?
  
positive.code:   (print `(%load ,pathname))
    (dolist (i (with-open-file (s pathname)
                 (%load-r s)))
      (%eval i)))
  
  
  ;;;; The user package.
  
  (in-package :tre)
  
  (defun macroexpand (x)
    (%%macroexpand x))
  
  (%load "environment/env-load-cl.lisp")
  
negative.code: (defconstant +direct-imports+
      '(nil t not eq eql atom setq quote
        cons car cdr rplaca rplacd
        apply
        progn block
        * / < >
        mod sqrt sin cos atan exp round floor
  