(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))) ;; http://localhost:4242/eow/ ;(setf *r* (drakma:http-request "http://gdata.youtube.com/feeds/videos")) ; ;;; DOM ;(setf *d* (cxml:parse *r* (cxml-dom:make-dom-builder))) ;(dom:child-nodes *d*) ;(dom:get-elements-by-tag-name *d* "entry") ;(setf *c* (aref (dom:get-elements-by-tag-name *d* "entry") 0)) ;(dom:map-document (cxml:make-character-stream-sink *standard-output*) *c*) ; ;;; Klacks ;(setf *s* (cxml:make-source *r*)) ;(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)))