anchor.diff:    (remove-if #'builtin? (transpiler-defined-functions tr)))
   
   (defun transpiler-add-defined-function (tr name)
  -  (remove! name (transpiler-defined-functions tr) :test #'eq)
  -  (push name (transpiler-defined-functions tr))
     (setf (href (transpiler-defined-functions-hash tr) name) t)
     name)
   
  
positive.code:   		(transpiler-wanted-functions-hash tr) (make-hash-table :test #'eq)
    		(transpiler-wanted-variables tr) nil
    		(transpiler-wanted-variables-hash tr) (make-hash-table :test #'eq)
    		(transpiler-defined-functions tr) nil
    		(transpiler-defined-functions-hash tr) (make-hash-table :test #'eq)
    		(transpiler-defined-variables tr) nil
    		(transpiler-defined-variables-hash tr) (make-hash-table :test #'eq)
    		(transpiler-function-args tr) (make-hash-table :test #'eq)
    		(transpiler-exported-closures tr) nil
  
negative.code: ;;;;; tré - Copyright (c) 2008-2012 Sven Michael Klose <pixel@copei.de>
  
  (defvar *current-transpiler* nil)
  (defvar *transpiler-assert* nil)
  