[cxml-cvs] CVS update: cxml/runes/package.lisp cxml/runes/xstream.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv19785/runes

Modified Files:
	package.lisp xstream.lisp 
Log Message:
kleine anpassungen fuer cl-xmpp
neu: do-node-map, map-node-map

Date: Fri Dec 30 15:21:47 2005
Author: dlichteblau

Index: cxml/runes/package.lisp
diff -u cxml/runes/package.lisp:1.5 cxml/runes/package.lisp:1.6
--- cxml/runes/package.lisp:1.5	Thu Dec 29 00:11:32 2005
+++ cxml/runes/package.lisp	Fri Dec 30 15:21:46 2005
@@ -43,6 +43,7 @@
            #:rod<
 
            ;; xstream.lisp
+           #:xstream
            #:make-xstream
            #:make-rod-xstream
            #:close-xstream


Index: cxml/runes/xstream.lisp
diff -u cxml/runes/xstream.lisp:1.4 cxml/runes/xstream.lisp:1.5
--- cxml/runes/xstream.lisp:1.4	Mon Nov 28 23:33:35 2005
+++ cxml/runes/xstream.lisp	Fri Dec 30 15:21:47 2005
@@ -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.