anchor.diff:  (defvar *functions* nil)
   (defvar *environment-path* ".")
   (defvar *environment-filenames* nil)
  -(defvar *macroexpand-hook* nil)
   (defvar *quasiquoteexpand-hook* nil)
   (defvar *dotexpand-hook* nil)
   (defvar *default-listprop* nil)
  
positive.code: (%defun make-array (&optional (dimensions 1)) (%make-array dimensions))
  (%defun make-hash-table (&key (test #'eql)) (%make-hash-table :test test))
  
  (%defun nanotime () 0)
  
  ;;; Temporary wrappers
  
negative.code:           (%load-r s))))
  
  (defun %expand (x)
    (alet (quasiquote-expand (tre:macroexpand (dot-expand x)))
      (? (equal x !)
         x
         (%expand !))))
  