anchor.diff:  ;;;;;
   ;;;;; The interpreter is spoiling everthing. Don't try to use
   ;;;;; tré before this thing here is working.
  +
  +(proclaim '(optimize (debug 3)))
   
   
   ;;;; Initialization package
  
positive.code: (defun eval (x) (%eval x))
  (defun macroexpand (x) (%%macroexpand x))
  (defun string (x) (%string 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 %make-symbol
        %symbol-name %symbol-value %symbol-function %symbol-package
        ? functional
        builtin? macro?
        %%macroexpand %%macrocall %%%macro?
  