anchor.diff:                                        (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))
  +    (or null gpu-buffer)
  +  (declare (optimize (speed 3) (safety 1) (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)))
  
positive.code:     (:texture-buffer
       #.(gl-enum :texture-buffer))))
  
  (defn gpu-buffer-bound ((cepl-context cepl-context) (target symbol)) gpu-buffer
    (declare (optimize (speed 3) (safety 1) (debug 1) (compilation-speed 0))
             (inline buffer-bound-static)
             (profile t))
  
negative.code: ;; Raw Cache indexed part
  
  (defn-inline buffer-bound-static ((ctx cepl-context) (index (integer 0 11)))
      (or gpu-buffer null)
    (declare (optimize (speed 3) (safety 0) (debug 0) (compilation-speed 0))
             (profile t))
    (%with-cepl-context-slots (array-of-bound-gpu-buffers) ctx
  