(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")) ; ;;; 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))