anchor.diff:        function-source
         %number? == number== integer== character== %integer %+ %- %* %/ %< %>
         string== list-string
  -      =-aref
  +      %make-array =-aref
         %make-hash-table href =-href copy-hash-table hashkeys hremove
         ? functional
         builtin? macro?
  
positive.code: (defun < (&rest x) (apply #'%< x))
  (defun > (&rest x) (apply #'%> x))
  (defun filter (fun x) (mapcar fun x))
  (defun make-hash-table (&key (test #'eql)) (%make-hash-table :test test))
  
  (defun nanotime () 0)
  
  ;;; Temporary wrappers
  
  (defun function-bytecode (x) nil)
  
  (%load "environment/env-load-cl.lisp")
  
negative.code: (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))
  