anchor.diff:  
   ;;----------------------------------------------------------------------
   
  -(defun post-process-ast (code env)
  +(defun post-process-ast (post-proc-obj)
     (declare (optimize (debug 3) (speed 0)))
     (let ((flow-origin-map (make-hash-table))
   	(val-origin-map (make-hash-table))
  
positive.code: 		#'macroexpand-pass
  		#'compiler-macroexpand-pass)
  	#'compile-pass
  	#'post-process-ast
  	#'make-post-process-obj
  	#'filter-used-items
  	#'check-stemcells
  	#'gen-in-arg-strings
  
negative.code:     (labels ((uniform-raw (val)
  	       (slot-value (first (ids (first (listify (flow-ids val)))))
  			   'val)))
        (let ((env (%get-base-env (env post-proc-obj))))
  	(loop :for (name % %1) :in (v-uniforms env) :do
  	   (let ((key (uniform-raw (get-var name env)))
  		 (val (vector :uniform name)))
  