anchor.diff:        x))
   
   (defun %eval (x)
  -  (eval (backquote-expand (make-cl-lambdas (%%macroexpand x)))))
  +  (eval (make-cl-lambdas (car (backquote-expand (list x))))))
   
   ;;; Reader
   
  
positive.code: ;;; Things we have to implement ourselves.
  (defconstant +implementations+
      '(%set-atom-fun cpr rplacp %load atan2 pow quit string-concat %load
        %defun early-defun %defvar %defmacro
        ? functional
        builtin? macro?
        %%macroexpand %%macrocall %%%macro?
  
negative.code: (defconstant +direct-imports+
      '(nil t not eq eql atom setq quote
        cons car cdr rplaca rplacd
        apply
        progn block
        * / < >
        mod sqrt sin cos atan exp round floor
  