anchor.diff:  (defun import-place (primary)
     (typecase primary
       (string (import-var-identifier primary))
  -    (t (error "not implemented"))))
  +    ;;(t (error "not implemented"))
  +    (t (import-form primary))))
   
   (defun import-swizzle (primary swizzle)
     `(s~ ,(import-swizzlable-form primary)
  
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:            (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)))
  