anchor.diff:                        (setf locs (nth 1 object))))
   
   (defmethod translate-from-foreign (pointer (type shader-type))
  - (with-foreign-slots ((id locs) pointer (:struct %shader))
  - (list id locs)))
  +  (with-foreign-slots ((id locs) pointer (:struct %shader))
  +    (list id locs)))
   
   ;;// MaterialMap
   ;;typedef struct MaterialMap {
  
positive.code: 
  (defmethod translate-from-foreign (pointer (type render-texture-type))
    (with-foreign-slots ((id texture depth) pointer (:struct %render-texture))
                        (let* ((tid (foreign-slot-value texture '(:struct %texture) 'id))
                               (twidth (foreign-slot-value texture '(:struct %texture) 'width))
                               (theight (foreign-slot-value texture '(:struct %texture) 'height))
                               (tmipmaps (foreign-slot-value texture '(:struct %texture) 'mipmaps))
                               (tformat (foreign-slot-value texture '(:struct %texture) 'format))
                               (did (foreign-slot-value depth '(:struct %texture) 'id))
                               (dwidth (foreign-slot-value depth '(:struct %texture) 'width))
                               (dheight (foreign-slot-value depth '(:struct %texture) 'height))
                               (dmipmaps (foreign-slot-value depth '(:struct %texture) 'mipmaps))
                               (dformat (foreign-slot-value depth '(:struct %texture) 'format)))
                          (make-render-texture :id id
                                               :texture (make-texture :id tid :width twidth :height theight :mipmaps tmipmaps :format tformat)
                                               :depth (make-texture :id did :width dwidth :height dheight :mipmaps dmipmaps :format dformat)))))
  ;;
  ;;// NPatchInfo, n-patch layout info
  ;;typedef struct NPatchInfo {
  
negative.code: 
  (defmethod translate-from-foreign (pointer (type patch-info-type))
    (with-foreign-slots ((source left top right bottom layout) pointer (:struct %patch-info))
      (make-patch-info :source source :left left :top top :right right :bottom bottom :layout layout)))
  
  ;;// GlyphInfo, font characters glyphs info
  ;;typedef struct GlyphInfo {
  