anchor.diff:          (char-code b)
           b)))
   
  +(defun %integer (x)
  +  (floor x))
  +
   (defun %%macroexpand (x)
     (? *macroexpand-hook*
         (funcall *macroexpand-hook* x)
  
positive.code:     '(%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?
  
negative.code: (defun symbol-function (x) (%symbol-function x))
  (defun symbol-package (x) (%symbol-package x))
  (defun number? (x) (%number? x))
  (defun integer (x) (%integer x))
  
  (%load "environment/env-load-cl.lisp")
  