X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=scratch.lisp;h=0627c41798a26d7ee124804c5d5cd941a68b703d;hp=23b73f69ec025121be519acedd2da81a1b8d4130;hb=92ba73bfcfe7d8cfe0a8bbc46d25813f3689a77d;hpb=f457ab38fddc9a587b37b3d97b8bcc19d5c412cb

diff --git a/scratch.lisp b/scratch.lisp
index 23b73f6..0627c41 100644
--- a/scratch.lisp
+++ b/scratch.lisp
@@ -1,14 +1,37 @@
-(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))
+(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 type ()
+  ((value :type 8 :flags 4 :len 0 :table nil)
+    (name :type 3 :flags 4 :len 0 :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))