;"value" 8 4 0 -1
;"name" 3 4 0 -1
;/2
-(defclass type ()
- ((value :type 8 :flags 4 :len 0 :table nil)
- (name :type 3 :flags 4 :len 0 :table nil)))
+(defclass meta-type ()
+ ((value :x-type 8 :x-flags 4 :x-len 0 :x-table nil)
+ (name :x-type 3 :x-flags 4 :x-len 0 :x-table nil)))
;; http://localhost:4242/eow/
;(klacks:peek-next *s*)
;(klacks:find-element *s* "entry")
;(klacks:serialize-element *s* (cxml-xmls:make-xmls-builder))
+
+;;;;;;;;;;;;;;;;;;
+
+(defclass meta-type ()
+ (value name))
+
+(sb-mop:ensure-class 'meta-type
+ ':direct-superclasses '()
+ ':direct-slots (list (list ':name 'value)
+ (list ':name 'name)))
+