anchor.diff:             (dispatch-reference primary modifiers))
            (`(conditional (,op ,left ,right) ,then ,else)
              (import-conditional op left right then else))
  +         (`(inversion ,form)
  +           (import-inversion form))
  +         (`(conditional ,test ,then)
  +           (import-bool-when test then))
  +         (`(conditional ,test ,then ,else)
  +           (import-bool-if test then else))
            (`(conditional (,op ,left ,right) ,then)
              (import-conditional op left right then nil))
            (`(negation ,expr) `(- ,(import-form expr)))
  
positive.code:     ;; (logical-or)
      ))
  
  (defun import-conditional (op left right then else)
    (if else
        `(if (,(cdr (assoc op *ops*)) ,(import-form left) ,(import-form right))
  
negative.code:     (or (find-symbol name :varjo)
          (intern name))))
  
  (defparameter *binary-op-lookup*
    '((addition . +)
      (subtraction . -)
      (division . /)
      (multiplication . *)
      (modulus . mod)
      (left-shift . <<)
      (right-shift . >>)
      (less-than . <)
      (greater-than . >)
      (less-equal-than . <=)
      (greater-equal-than . >=)
      (equal . ==)
      (not-equal . !=)
      (bitwise-and . &)
      (exclusive-or . ^)
      (inclusive-or . |\||)
      (logical-and . and)
      (logical-xor . ^)
      (logical-or . or)))
  
  (defun import-binary-operator (form)
    (dbind (op left right) form
  