From: Gerd Flaig <gefla@gefla-mac-zrh>
Date: Thu, 20 Nov 2008 17:17:28 +0000 (+0100)
Subject: test commands
X-Git-Url: http://git.pond.sub.org/?p=eow;a=commitdiff_plain;h=4a77e10ef502270a71352390bee6d5ae0a441ef7

test commands
---

diff --git a/scratch.lisp b/scratch.lisp
index 23b73f6..17a51b2 100644
--- a/scratch.lisp
+++ b/scratch.lisp
@@ -1,14 +1,21 @@
-(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*)
+(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/
 
-;; 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 *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))