-;; 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)))))