anchor.diff:                    (first missing-dependencies) name))
           (%update-gpu-function-data spec nil nil)))
       spec))
  +
  +
  +
   
   (defmethod %recompile-gpu-function-and-pipelines (key)
     (%recompile-gpu-function-and-pipelines (func-key key)))
  
positive.code:     (handler-case
  	(varjo:with-constant-inject-hook #'try-injecting-a-constant
  	  (varjo:with-stemcell-infer-hook #'try-guessing-a-varjo-type-for-symbol
  	    (let* ((context (union '(:vertex :fragment :iuniforms) context))
  		   (context (swap-version (lowest-suitable-glsl-version context)
                                            context))
  		   (compiled
  		    (v-translate in-args uniforms context `(progn ,@body) nil)))
  	      (setf actual-uniforms (uniforms compiled) ;;[2]
  		    uniform-transforms (with-hash (uv 'uniform-vals)
  					   (third-party-metadata compiled)
  					 (map-hash #'list uv)))
  	      (%update-gpu-function-data
  	       spec
  	       (remove-if-not #'gpu-func-spec
  			      (varjo::used-external-functions compiled)) ;;[1]
  	       compiled))))
        ;; vv- called if failed
        (varjo-conditions:could-not-find-function (e) ;;[0]
          (setf missing-dependencies (list (slot-value e 'varjo::name)))
  
negative.code:   (unless (listp x)
      (error 'gfun-invalid-arg-format :gfun-name gfunc-name :invalid-pair x))
    x)
  
  ;;--------------------------------------------------
  
  