anchor.diff:        (clr (transpiler-emitted-decls tr)))
       (transpiler-switch-obfuscator tr obfuscate?)
       (with (before-deps (target-transpile-1 tr files-before-deps files-to-update)
  -		   after-deps  (target-transpile-add-deps dep-gen (target-transpile-1 tr files-after-deps files-to-update))
  +		   after-deps  (target-transpile-1 tr files-after-deps files-to-update)
  +		   deps        (target-sighten-deps tr dep-gen)
   	       compiled-before (target-transpile-2 tr before-deps files-to-update)
  +	       compiled-deps   (awhen deps (transpiler-make-code tr !))
   		   compiled-after  (target-transpile-2 tr after-deps files-to-update))
  +      (awhen compiled-deps
  +        (setf (transpiler-imported-deps tr) (string-concat (transpiler-imported-deps tr) !)))
   	  (prog1
   	    (concat-stringtree (awhen decl-gen
   	                         (funcall !))
   	                       compiled-before
                              (reverse (transpiler-raw-decls tr))
  +                           (transpiler-imported-deps tr)
   	                       compiled-after)
           (when (and print-obfuscations? (transpiler-obfuscate? tr))
             (transpiler-print-obfuscations tr))))))
  
positive.code:      (string= x y)))
  
  (defun compile-file? (file processed-files files-to-update)
    (or (eq 'imported-deps file)
        (member file files-to-update :test #'eq-string=)
        (not (assoc-value file processed-files :test #'eq-string=))))
  
  (defun target-transpile-2 (tr files files-to-update)
    (let compiled-code (make-queue)
  
negative.code: 	(dolist (i files (queue-list sightened-code))
        (let code (? (compile-file? i. (transpiler-sightened-files tr) files-to-update)
                     (? (symbol? i.)
                        (transpiler-sighten tr (? (function? .i) (funcall .i) .i))
  		  			  (transpiler-sighten-file tr i.))
                     (assoc-value i. (transpiler-sightened-files tr) :test #'eq-string=))
          (assoc-adjoin code i. (transpiler-sightened-files tr) :test #'eq-string=)
  	    (enqueue sightened-code (cons i. code))))))
  
  (defun target-sighten-deps (tr dep-gen)
    (when dep-gen
      (when *have-compiler?*
        (setf *save-compiled-source?* t)
        (clr *save-args-only?*))
      (funcall dep-gen)))
  
  (defun target-transpile (tr &key (files-before-deps nil)
                                   (files-after-deps nil)
  