anchor.diff:  	  (%%SET        (&rest x)) ;address byte-value)
         (%%GET        (&rest x)) ;address)
   
  -      (FUNCTION-NATIVE      (function))
  -      (FUNCTION-BYTECODE    (function))
  -      (=-FUNCTION-BYTECODE  (array function))
  -      (FUNCTION-SOURCE      (function))
  -      (=-FUNCTION-SOURCE    (args-and-body function))
  +      (FUNCTION-NATIVE      (fun))
  +      (FUNCTION-BYTECODE    (fun))
  +      (=-FUNCTION-BYTECODE  (array fun))
  +      (FUNCTION-SOURCE      (fun))
  +      (=-FUNCTION-SOURCE    (args-and-body fun))
         (MAKE-FUNCTION        (&optional (source nil)))
   
         (*                (&rest numbers))
  
positive.code:       (=-SYMBOL-VALUE   (value symbol))
        (%SETQ-ATOM-VALUE     (&rest x)) ;value symbol)
        (SYMBOL-FUNCTION      (symbol))
        (=-SYMBOL-FUNCTION    (function symbol))
        (SYMBOL-PACKAGE       (&rest x)) ;symbol)
        (CONS             (a d))
        (CAR              (list))
  
negative.code:       (%FOPEN       (&rest x)) ;path access-mode)
  
        (NUMBER?      (object))
        (APPLY        (&rest x)) ;fun &rest args)
        (EVAL         (&rest x)) ;expression)
        (QUIT         (&rest x)) ;exit-code)
        (LOAD         (&rest x)) ;path)
  