+(setf *e* (empire::connect :user "1" :password "1"))
+(empire::quit *e*)
+
+;XDUMP meta meta 1242293190
+;"name" 3 4 0 -1
+;"type" 4 4 0 34
+;"flags" 5 12 0 33
+;"len" 7 4 0 -1
+;"table" 8 4 0 -1
+;/5
+(defclass meta ()
+ (name type flags len table))
+
+;XDUMP meta meta-type 1242293224
+;"value" 8 4 0 -1
+;"name" 3 4 0 -1
+;/2
+(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)))
-(hunchentoot:start-server :port 4242)
-(setf hunchentoot:*show-lisp-backtraces-p* t)
-(setf hunchentoot:*show-lisp-errors-p* t)
-(empire-web:start)
;; http://localhost:4242/eow/
;(setf *r* (drakma:http-request "http://gdata.youtube.com/feeds/videos"))
;(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)))
+