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 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)))]
                        !))))
  
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 _)))]
                        !))))
  