nach :eof beliebig lange nil liefern

2007-05-06 11:28:13 +00:00
parent 41ee5ae24d
commit a486018c85
1 changed files with 4 additions and 1 deletions
--- 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)