anchor.diff:      '(%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
  +      %number?
         ? functional
         builtin? macro?
         %%macroexpand %%macrocall %%%macro?
  
positive.code: (defun symbol-value (x) (%symbol-value x))
  (defun symbol-function (x) (%symbol-function x))
  (defun symbol-package (x) (%symbol-package x))
  
  (%load "environment/env-load-cl.lisp")
  
negative.code:              tests))))
  
  (defun %string (x)
    (? (numberp x)
       (format nil "~A" x)
       (string x)))
  
  