anchor.diff:  (defn (setf gpu-buffer-bound) ((val (or null gpu-buffer))
                                  (ctx cepl-context)
                                  (target symbol))
  -    gpu-buffer
  +    (or null gpu-buffer)
     (declare (optimize (speed 3) (safety 1) (debug 1) (compilation-speed 0))
              (inline set-buffer-bound-static
                      buffer-kind->cache-index
  
positive.code:                                       (buffer (or null gpu-buffer))
                                        (index (integer 0 11))
                                        (enum (signed-byte 32)))
      gpu-buffer
    (declare (optimize (speed 3) (safety 0) (debug 0) (compilation-speed 0))
             (profile t))
    (%with-cepl-context-slots (array-of-bound-gpu-buffers) ctx
      (when (not (eq buffer (aref array-of-bound-gpu-buffers index)))
  
negative.code:     (:texture-buffer
       #.(gl-enum :texture-buffer))))
  
  (defn gpu-buffer-bound ((cepl-context cepl-context) (target symbol))
      (or null gpu-buffer)
    (declare (optimize (speed 3) (safety 1) (debug 1) (compilation-speed 0))
             (inline buffer-bound-static)
             (profile t))
  