anchor.diff:                       :max-vertex-texture-image-units
                        :max-vertex-atomic-counter-buffers
                        :max-vertex-atomic-counters
  +                     :max-vertex-shader-storage-blocks
  +                     ;; 23.70 implementation dependent tessellation
  +                     ;; control shader limits
                        :max-tess-gen-level
                        :max-patch-vertices
                        :max-tess-control-uniform-components
  -                     :max-tess-evaluation-uniform-components
                        :max-tess-control-texture-image-units
  -                     :max-tess-evaluation-texture-image-units
                        :max-tess-control-output-components
                        :max-tess-patch-components
                        :max-tess-control-total-output-components
  +                     :max-tess-control-input-components
  +                     :max-tess-control-uniform-blocks
  +                     :max-tess-control-atomic-counter-buffers
  +                     :max-tess-control-atomic-counters
  +                     :max-tess-control-shader-storage-blocks
  +                     ;; 23.71 implementation dependent tessellation
  +                     ;; shader limits
  +                     :max-tess-evaluation-uniform-components
  +                     :max-tess-evaluation-texture-image-units
                        :max-tess-evaluation-output-components
  -                     :max-tess-control-input-components
                        :max-tess-evaluation-input-components
  -                     :max-tess-control-uniform-blocks
                        :max-tess-evaluation-uniform-blocks
  -                     :max-tess-control-atomic-counter-buffers
                        :max-tess-evaluation-atomic-counter-buffers
  -                     :max-tess-control-atomic-counters
                        :max-tess-evaluation-atomic-counters
  +                     :max-tess-evaluation-shader-storage-blocks
  +                     ;; 23.72 implementation dependent geometry shader
  +                     ;; limits
                        :max-geometry-uniform-components
                        :max-geometry-uniform-blocks
                        :max-geometry-input-components
  
positive.code:                      :max-vertex-streams
                       :max-geometry-atomic-counter-buffers
                       :max-geometry-atomic-counters
                       :max-fragment-uniform-components
                       :max-fragment-uniform-vectors
                       :max-fragment-uniform-blocks
                       :max-fragment-input-components
                       :max-fragment-atomic-counter-buffers
                       :max-fragment-atomic-counters
                       :min-program-texture-gather-offset
                       :max-program-texture-gather-offset
                       :max-texture-image-units
                       :max-texture-units
                       :max-texture-coords
                       :min-program-texel-offset
                       :max-program-texel-offset
                       :max-uniform-buffer-bindings
  
negative.code:                      :max-geometry-image-uniforms
                       :max-fragment-image-uniforms
                       :max-combined-image-uniforms
                       ;; 23.78
                       :max-combined-vertex-uniform-components
                       :max-combined-geometry-uniform-components
                       :max-combined-tess-control-uniform-components
                       :max-combined-tess-evaluation-uniform-components
                       :max-combined-fragment-uniform-components
                       ;; 23.80 implementation dependent debug output
                       ;; state
                       :max-debug-message-length
                       :max-debug-logged-messages
                       :max-debug-group-stack-depth
                       :max-label-length
                       ;; 23.81 implementation dependent values
                       :max-framebuffer-width
                       :max-framebuffer-height
                       :max-framebuffer-layers
                       :max-framebuffer-samples
                       :max-sample-mask-words
                       :max-samples
                       :max-color-texture-samples
                       :max-depth-texture-samples
                       :max-integer-samples
                       :quads-follow-provoking-vertex-convention ;; compat
                       ;; :query-counter-bits
                       :max-server-wait-timeout
                       ;; 23.82
                       :min-fragment-interpolation-offset
                       :max-fragment-interpolation-offset
                       :fragment-interpolation-offset-bits
                       :max-draw-buffers
                       :max-dual-source-draw-buffers
                       :max-color-attachments
                       ;; 23.84 implementation dependent transform
                       ;; feedback limits
                       :max-transform-feedback-interleaved-components
                       :max-transform-feedback-separate-attribs
                       :max-transform-feedback-separate-components
                       :max-transform-feedback-buffers
                       ;; ??
                       :smooth-point-size-range
                       :smooth-point-size-granularity
                       :line-width-range
                       :line-width-granularity
                       :max-combined-image-units-and-fragment-outputs
                       :aux-buffers
                       :implementation-color-read-format)
            do (format t "~s: ~a~%" i (get* i)))
      (let ((slv (ignore-errors (gl:get* :num-shading-language-versions))))
        (when slv
          (format t "shading language versions:~%~{  ~s~%~}"
                  (loop for i below slv collect (gl:get-string-i :shading-language-version i)))))
      (format t "max anisotropy: ~s~%" (gl:get-float :max-texture-max-anisotropy-ext 1))
      (when *gl-info-verbose*
        (format t "----~%")
        (loop for (i nil nil m) in gl::*query-enum-sizes*
  