From a486018c85c248fe0ca4ab31f4dcbeaefcd1e811 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 6 May 2007 11:28:13 +0000
Subject: [PATCH] nach :eof beliebig lange nil liefern

---
 klacks/klacks-impl.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/klacks/klacks-impl.lisp b/klacks/klacks-impl.lisp
index 3bc71eb..54376bc 100644
--- a/klacks/klacks-impl.lisp
+++ b/klacks/klacks-impl.lisp
@@ -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)