anchor.diff:      :type string))
     (:metaclass struct-class))
   
  -;; We don't really need to access any of these slots, but we need to
  -;; specify the size of the struct somehow 
  -(defclass tree-iter (boxed)
  -  ((stamp :allocation :alien :type int)
  -   (user-data :allocation :alien :type pointer)
  -   (user-data2 :allocation :alien :type pointer)
  -   (user-data3 :allocation :alien :type pointer))
  -  (:metaclass boxed-class))
  +;; We don't really need to access any slots in this class, so we just
  +;; specify the total size
  +(defclass tree-iter (boxed)  
  +  (
  +;;    (stamp :allocation :alien :type int)
  +;;    (user-data :allocation :alien :type pointer)
  +;;    (user-data2 :allocation :alien :type pointer)
  +;;    (user-data3 :allocation :alien :type pointer)
  +   )
  +  (:metaclass boxed-class)
  +  (:size #.(+ (size-of 'int) (* 3 (size-of 'pointer)))))
   
   
   ;; (defclass tree-path (boxed)
  
positive.code: (defmethod reader-function ((type (eql 'position)) &rest args)
    (declare (ignore type args))
    (reader-function 'int))
  
  (define-types-by-introspection "Gtk"
    ;; Manually defined
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtktypes.lisp,v 1.40 2006-02-04 12:18:12 espen Exp $
  
  (in-package "GTK")
  
  