anchor.diff:                         (calc-gl-index c-array subscripts))
                 value)
           (let ((obj (autowrap:wrap-pointer 
  -                    (mem-aptr (pointer c-array) etype
  -                              (calc-gl-index c-array subscripts))
  +                    (let ((ptr (pointer c-array)))
  +                      (inc-pointer ptr (calc-gl-index c-array subscripts)))
                       etype)))
             (populate obj value)))))
   
   (defun %aref-c (c-array subscripts)    
     (let ((etype (element-type c-array)))
  -    (if (keywordp etype)
  +    (if (keywordp etype)        
           (mem-ref (pointer c-array) etype
  -                 (calc-gl-index c-array subscripts))
  -        (mem-aptr (pointer c-array) etype
  -                  (calc-gl-index c-array subscripts)))))
  +                 (calc-gl-index c-array subscripts))        
  +        (autowrap:wrap-pointer 
  +         (let ((ptr (pointer c-array)))
  +           (inc-pointer ptr (calc-gl-index c-array subscripts)))         
  +         etype))))
   
   (defun (setf %aref-c) (value c-array subscripts)  
     (let ((etype (element-type c-array)))
  
positive.code:   (let ((etype (element-type c-array)))
      (if (keywordp etype)        
          (mem-ref (pointer c-array) etype
                   (calc-gl-index c-array subscripts))
          
          (autowrap:wrap-pointer 
           (let ((ptr (pointer c-array)))
             (inc-pointer ptr (calc-gl-index c-array subscripts)))         
  
negative.code:                             (pixel-format-element-type element-type)
                              (if (keywordp element-type)
                                  element-type
                                  (symbolicate-package (symbol-package element-type)
                                                       element-type '_))))
           (elem-size (gl-type-size element-type2)))
      (multiple-value-bind (byte-size row-byte-size)
          (%gl-calc-byte-size elem-size dimensions alignment)
  