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:   (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 import-wanted-functions ()
    (awhen (wanted-functions)
      (= (wanted-functions) nil)
      (print-note "Importing functions ~A…~%" !)
      (frontend (mapcan [unless (defined-function _)
                          `((defun ,_ ,(host-function-arguments _)
                             ,@(host-function-body _)))]
                        !))))
  