[cxml-cvs] CVS cxml/klacks

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/klacks
In directory clnet:/tmp/cvs-serv17389

Modified Files:
	klacks-impl.lisp 
Log Message:
nach :eof beliebig lange nil liefern


--- /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2007/05/01 18:21:41	1.9
+++ /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2007/05/06 11:28:13	1.10
@@ -285,7 +285,10 @@
   (with-source (source current-key current-values)
     (setf current-key nil)
     (setf current-values nil)
-    (labels ((klacks/done () #'klacks/done))
+    (labels ((klacks/done ()
+	       (setf current-key nil)
+	       (setf current-values nil)
+	       #'klacks/done))
       #'klacks/done)))
 
 (defun klacks/element (source input cont)