anchor.diff:        (%FOPEN       (&rest x)) ;path access-mode)
   
         (NUMBER?      (object))
  -      (APPLY        (&rest x)) ;function &rest args)
  +      (APPLY        (&rest x)) ;fun &rest args)
         (EVAL         (&rest x)) ;expression)
         (QUIT         (&rest x)) ;exit-code)
         (LOAD         (&rest x)) ;path)
  
positive.code: 	  (%%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))
        (MAKE-FUNCTION        (&optional (source nil)))
  
        (*                (&rest numbers))
  
negative.code:       (=-SYMBOL-VALUE   (value symbol))
        (%SETQ-ATOM-VALUE     (&rest x)) ;value symbol)
        (SYMBOL-FUNCTION      (symbol))
        (=-SYMBOL-FUNCTION    (fun symbol))
        (SYMBOL-PACKAGE       (&rest x)) ;symbol)
        (CONS             (a d))
        (CAR              (list))
  