kleine anpassungen fuer cl-xmpp

neu: do-node-map, map-node-map

README.html

@@ -82,7 +82,7 @@
     </ul>
 
     <p>
-      CXML currently implements a <a
+      CXML implements a <a
       href="http://www.w3.org/TR/REC-xml-names/">namespace-aware</a>,
       validating SAX-like <a
       href="http://www.w3.org/TR/2000/REC-xml-20001006">XML&nbsp;1.0</a>

dom/dom-impl.lisp

@@ -188,6 +188,15 @@
      (dom:map-node-list (lambda (,var) ,@body) ,nodelist)
      ,resultform))
 
+(defun dom:map-node-map (fn node-map)
+  (with-slots (items) node-map
+    (mapc fn items)))
+
+(defmacro dom:do-node-map ((var node-map &optional resultform) &body body)
+  `(block nil
+     (dom:map-node-map (lambda (,var) ,@body) ,node-map)
+     ,resultform))
+
 (defmacro dovector ((var vector &optional resultform) &body body)
   `(loop
        for ,var across ,vector do (progn ,@body)

dom/package.lisp

@@ -138,5 +138,7 @@
 
    #:map-node-list
    #:do-node-list
+   #:map-node-map
+   #:do-node-map
    #:create-document
    #:map-document))

runes/package.lisp

@@ -43,6 +43,7 @@
            #:rod<
 
            ;; xstream.lisp
+           #:xstream
            #:make-xstream
            #:make-rod-xstream
            #:close-xstream

runes/xstream.lisp

@@ -256,9 +256,7 @@
 
 ;;; Underflow
 
-;;(defun read-runes (sequence input))
-
-(defun xstream-underflow (input)
+(defmethod xstream-underflow ((input xstream))
   (declare (type xstream input))
   ;; we are about to fill new data into the buffer, so we need to
   ;; adjust buffer-start.