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