anchor.diff:            (%load-r s))))
   
   (defun %expand (x)
  -  (alet (quasiquote-expand (%%macroexpand (dot-expand x)))
  +  (alet (quasiquote-expand (tre:macroexpand (dot-expand x)))
       (? (equal x !)
          x
          (%expand !))))
  
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: (defpackage :tre
    (:use :tre-core)
    (:export :%backquote :backquote :quasiquote :quasiquote-splice
             :macroexpand
             :square :curly :accent-circonflex $))
  
  (in-package :tre-core)
  