anchor.diff:        (| (transpiler-defined-function tr !)
            (enqueue q (transpiler-import-wanted-function tr !))))))
   
  +(defun generate-imported-defvars (x)
  +  (mapcan [unless (transpiler-defined-variable tr _)
  +            (transpiler-add-delayed-var-init tr `((= ,_ ,(assoc-value _ *variables* :test #'eq))))
  +            `((defvar ,_ nil))]
  +          !))
  +
   (defun transpiler-import-wanted-variables (tr)
  -  (frontend
  -      (mapcan [unless (transpiler-defined-variable tr _)
  -				(transpiler-add-delayed-var-init tr `((= ,_ ,(assoc-value _ *variables* :test #'eq))))
  -	            `((defvar ,_ nil))]
  -	          (transpiler-wanted-variables tr))))
  +  (awhen (transpiler-wanted-variables tr)
  +    (print-note "Importing variables ~A.~%" !)
  +    (frontend (generate-imported-defvars !))))
   
   (defun transpiler-import-from-environment (tr)
     (when (transpiler-import-from-environment? tr)
  
positive.code:   (when (can-import-variable? tr x)
      (= (href (transpiler-wanted-variables-hash tr) x) t)
      (push x (transpiler-wanted-variables tr))
      (print-note "Scheduled global variable ~A for import from host.~%" x))
    x)
  
  (defun transpiler-import-exported-closures (tr)
  
negative.code:     (transpiler-add-wanted-function tr i)))
  
  (defun can-import-variable? (tr x)
    (& (transpiler-import-variables? tr)
       (transpiler-import-from-environment? tr)
       x (symbol? x)
       (not (funinfo-find *funinfo* x)
            (transpiler-defined? tr x))
       (| (transpiler-host-variable? tr x)
          (assoc x *constants* :test #'eq))))
  