anchor.diff:      (if (and (typep func-spec 'glsl-stage-spec))
           (with-glsl-stage-spec func-spec
             compiled);;[0]
  -        (dbind (in-args uniforms context code)
  +        (dbind (in-args uniforms shared context code)
               (get-func-as-stage-code func-spec) ;;[2]
             ;;[1]
             (let ((n (count-if (lambda (_) (member _ varjo:*stage-names*))
  
positive.code: 
  (defun+ get-func-as-stage-code (func-spec)
    (with-gpu-func-spec func-spec
      (list in-args uniforms context body)))
  
  ;;--------------------------------------------------
  
  
negative.code:                            `((let ,replacements
                                 ,@code))
                             code)))
              (varjo:create-stage stage-type
                                  context
                                  :input-variables in-args
                                  :uniform-variables final-uniforms
                                  :shared-variables shared
                                  :code body
                                  :stemcells-allowed t
                                  :primitive primitive))))))
  
  ;;--------------------------------------------------
  
  