anchor.diff:  (defmethod gl-finalize-buffer ((buffer gl-buffer) target &optional errorp)
     (declare (ignorable errorp))          ; TODO: handle errorp
     (let ((id (car (gl:gen-buffers 1))))
  +    (setf (id buffer) id)
       (gl:bind-buffer target id)
       (%gl:buffer-data target (size buffer) (cffi:null-pointer) (usage buffer))))
     
  
positive.code:    (offset :accessor offset :initarg :offset :initform 0))
    :documentation "class for formatted data stored somewhere in a buffer"
    (:default-initargs :usage :static-draw))
  
  (defmethod gl-finalized-p ((obj buffer-area))
    (gl-finalized-p (buffer obj)))
  
negative.code:    (new-bundles :accessor new-bundles :initform nil)
     (current-state :accessor current-state :initform nil)
     (finalize-queue :accessor finalize-queue :initform nil)
     ;; alist of (buffer . buffer-areas)
     (upload-queue :accessor upload-queue :initform nil)))
  
  (defmethod add-object :after ((parent renderer) object)
  