anchor.diff:               (append (butlast tests) (list (cons t end)))
                tests))))
   
  +(defun %string (x)
  +  (? (number? x)
  +     (format nix "~A" x)
  +     (string x)))
  +
   (defun %%macroexpand (x)
     (? *macroexpand-hook*
         (funcall *macroexpand-hook* x)
  
positive.code: 
  (defun eval (x) (%eval x))
  (defun macroexpand (x) (%%macroexpand x))
  
  (%load "environment/env-load-cl.lisp")
  
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 %string
        ? functional
        builtin? macro?
        %%macroexpand %%macrocall %%%macro?
  