anchor.diff:  (defun function-native (x) x)
   (defun function-bytecode (x) x (error "Not implemented."))
   (defun =-function-bytecode (v x) v x (error "Not implemented."))
  -(defun function-source (x) x (gethash x *function-sources*))
  -(defun =-function-source (v x) v x (setf (gethash x *function-sources*) v))
   
   (defun bit-or (a b) (bit-or a b))
   (defun << (x num-bits-to-left) x num-bits-to-left (error "Not implemented."))
  
positive.code:                                   x))
      ((function-expr? (car x))  `(labels ((~ja ,@(make-lambdas (cadar x))))
                                    (~ja ,@(make-lambdas (cdr x)))))
      ((function-expr? x)        `#'(lambda ,@(make-lambdas (cadr x))))
      (t (mapcar #'make-lambdas x))))
  
  (defun quasiquote-expand (x)
  
negative.code:     '(%set-atom-fun %not cpr rplacp %load atan2 pow quit string-concat %load
        %eval %defun early-defun %defvar %defmacro %string %make-symbol
        %symbol-name %symbol-value %symbol-function %symbol-package
        function-source
        %number? == number== integer== character== %integer %+ %- %* %/ %< %>
        string== list-string
        =-aref
  