anchor.diff:        mod sqrt sin cos atan exp round floor
         last copy-list nthcdr nth member mapcar elt length make-string
         make-array aref code-char char-code integer
  -      make-symbol make-package
  -      symbol-name symbol-value symbol-function symbol-package
  +      make-package
         logxor bit-and
         print
         defvar
  
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: ;;;;;
  ;;;;; The interpreter is spoiling everthing. Don't try to use
  ;;;;; tré before this thing here is working.
  
  (proclaim '(optimize (debug 3)))
  
  
  ;;;; Initialization package
  