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)