anchor.diff:  (defun %symbol-package (x)
     (? (boundp x)
        (symbol-package x)))
  +
  +(defun %number? (x)
  +  (or (numberp x)
  +      (characterp x)))
   
   (defun %%macroexpand (x)
     (? *macroexpand-hook*
  
positive.code:       (function? functionp)
        (string? stringp)
        (array? arrayp)
        (number? numberp)
        (character? characterp)
        (%+ +)
        (%- -)
  
negative.code: (defun symbol-value (x) (%symbol-value x))
  (defun symbol-function (x) (%symbol-function x))
  (defun symbol-package (x) (%symbol-package x))
  (defun number? (x) (%number? x))
  
  (%load "environment/env-load-cl.lisp")
  