anchor.diff:        (string? stringp)
         (array? arrayp)
         (character? characterp)
  -      (number== =)
  -      (integer== =)
  -      (character== =)
         (number< <)
         (integer< <)
         (character< <)
  
positive.code:     '(%set-atom-fun %not 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 %+ %- %* %/ %< %>
        string== list-string
        =-aref
        %make-hash-table href =-href
  
negative.code: 
  
  (defun == (&rest x) (apply #'= (chars-to-numbers x)))
  (defun number== (&rest x) (apply #'= (chars-to-numbers x)))
  (defun integer== (&rest x) (apply #'= (chars-to-numbers x)))
  (defun character== (&rest x) (apply #'= (chars-to-numbers x)))
  (defun %+ (&rest x) (apply #'+ (chars-to-numbers x)))
  (defun %- (&rest x) (apply #'- (chars-to-numbers x)))
  (defun %* (&rest x) (apply #'* (chars-to-numbers x)))
  