anchor.diff:  (defun %integer (x)
     (floor x))
   
  +(defun chars-to-numbers (x)
  +  (mapcar #'(lambda (x)
  +              (? (characterp x)
  +                 (char-code x)
  +                 x))
  +          x))
  +
  +(defun %+ (&rest x)
  +  (apply #'+ (chars-to-numbers x)))
  +
  +(defun %- (&rest x)
  +  (apply #'- (chars-to-numbers 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? == %integer
        ? functional
        builtin? macro?
        %%macroexpand %%macrocall %%%macro?
  
negative.code:       (string? stringp)
        (array? arrayp)
        (character? characterp)
        (number== =)
        (integer== =)
        (character== =)
  