anchor.diff: -; tré – Copyright (c) 2008–2015 Sven Michael Klose <pixel@hugbox.org>
  +; tré – Copyright (c) 2008–2016 Sven Michael Klose <pixel@hugbox.org>
   
   (defun defined-or-wanted? (x)
     (| (defined-function x)
  
positive.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)
  
negative.code: (defun import-wanted-variables ()
    (awhen (wanted-variables)
      (= (wanted-variables) nil)
      (print-note "Importing variables ~A…~%" !)
      (frontend (mapcan [unless (defined-variable _)
                         `((defvar ,_ ,(assoc-value _ *variables* :test #'eq)))]
                        !))))
  