anchor.diff:  (defun < (&rest x) (apply #'%< x))
   (defun > (&rest x) (apply #'%> x))
   (defun filter (fun x) (mapcar fun x))
  +(defun make-array (&optional (dimensions 1)) (%make-array dimensions))
   (defun make-hash-table (&key (test #'eql)) (%make-hash-table :test test))
   
   (defun nanotime () 0)
   
   ;;; Temporary wrappers
   
  -(defun function-bytecode (x) nil)
  +(defun function-bytecode (x) x nil)
   
   (%load "environment/env-load-cl.lisp")
  
positive.code: (defun hashkeys (x)
    (let ((n nil))
      (maphash #'(lambda (k v)
                   (push k n))
               x)
      n))
  
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
  