anchor.diff:  (defun builtin? (x) (gethash x *builtins*))
   (defun macro? (x) (rassoc x *macros* :test #'eq))
   
  +(defun %make-array (dimensions) (make-array dimensions))
   (defun =-aref (v x &rest indexes) v x (apply #'aref x indexes))
   
   (defun %make-hash-table (&key (test #'eql))
  
positive.code:       function-source
        %number? == number== integer== character== %integer %+ %- %* %/ %< %>
        string== list-string
        =-aref
        %make-hash-table href =-href copy-hash-table hashkeys hremove
        ? functional
        builtin? macro?
  
negative.code:       progn block return return-from tagbody go
        mod sqrt sin cos atan exp round floor
        last copy-list nthcdr nth mapcar elt length make-string
        aref code-char char-code
        symbol-name make-package package-name
        logxor bit-and
        print
  