anchor.diff:  (defun eval (x) (%eval x))
   (defun macroexpand (x) (%%macroexpand x))
   (defun string (x) (%string x))
  +(defun not (&rest x) (apply #'%not x))
   (defun make-symbol (x) (%make-symbol x))
   (defun symbol-value (x) (%symbol-value x))
   (defun symbol-function (x) (%symbol-function x))
  
positive.code: 
  ;;; Symbols directly imported from package CL-USER.
  (defconstant +direct-imports+
      '(nil t not eq eql atom setq quote
        cons car cdr rplaca rplacd
        apply function
        progn block return return-from tagbody go
  
negative.code: 
  ;;; Implementations.
  
  (defun %not (&rest x) (every #'not x))
  
  (defun cpr (x) x nil)
  (defun rplacp (v x) v x)
  
  