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.