anchor.diff:       if (not (gl-finalized-p obj))
        do (gl-finalize obj)))
   
  -(defclass gl-object ()
  -  ((id :accessor id :initarg :id :initform 0
  -       :documentation "ID from OpenGL of object"))
  -  (:documentation "Abstract class for objects allocated in OpenGL."))
  -
   (defgeneric gl-valid-p (obj))
   
   (defmethod gl-valid-p ((obj gl-object))
  
positive.code:                      :initform nil)
     (log :reader render-error-log :initarg :error-log :initform nil))
    (:report report-render-error))
  
  (defgeneric gl-finalize (obj &optional errorp)
    (:documentation "Allocate any OpenGL resources needed for OBJ and perform any
  
negative.code: (defconstant +default-buffer-size+ 104856
    "The default size of a buffer object allocated with GL-BUFFER.")
  
  (define-gl-object gl-buffer ()
    ((size :accessor size :initarg :size
           :documentation "The size of the buffer object in OpenGL. Note: this value is mutable until
    GL-FINALIZE is called on the GL-BUFFER object.")
  