From ffd1ff2ff992e104683c2034562e4856d8ab7aa1 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Fri, 30 Dec 2005 14:21:46 +0000
Subject: [PATCH] kleine anpassungen fuer cl-xmpp neu: do-node-map,
 map-node-map

---
 package.lisp | 1 +
 xstream.lisp | 4 +---
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/package.lisp b/package.lisp
index f801eda..7b8a4a4 100644
--- a/package.lisp
+++ b/package.lisp
@@ -43,6 +43,7 @@
            #:rod<
 
            ;; xstream.lisp
+           #:xstream
            #:make-xstream
            #:make-rod-xstream
            #:close-xstream
diff --git a/xstream.lisp b/xstream.lisp
index 5798ecd..5e3657c 100644
--- a/xstream.lisp
+++ b/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.