anchor.diff:  (defun import-wanted-variables ()
     (awhen (wanted-variables)
       (= (wanted-variables) nil)
  -    (print-note "Importing variables ~A.~%" !)
  +    (print-note "Importing variables ~A…~%" !)
       (frontend (mapcan [unless (defined-variable _)
                          `((defvar ,_ ,(assoc-value _ *variables* :test #'eq)))]
                         !))))
  
positive.code:   (when (import-from-host?)
      (with-temporary (configuration :save-argument-defs-only?) nil
        (with (funs      (import-wanted-functions)
               exported  (import-exported-closures)
               vars      (import-wanted-variables))
          (& (| funs exported vars)
             (append funs exported vars (import-from-host)))))))
  
  (defun current-scope? (x)
    (member x (funinfo-names *funinfo*) :test #'eq))
  
negative.code: (defun can-import-variable? (x)
    (& (import-variables?)
       (import-from-host?)
       x
       (symbol? x)
       (not (funinfo-find *funinfo* x)
            (defined-or-wanted? x))
       (| (host-variable? x)
  