OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

nach :eof beliebig lange nil liefern

Browse Source
This commit is contained in:
dlichteblau
2007-05-06 11:28:13 +00:00
parent 41ee5ae24d
commit a486018c85
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
klacks/klacks-impl.lisp
View File

@ -285,7 +285,10 @@
(with-source (source current-key current-values) (with-source (source current-key current-values)
(setf current-key nil) (setf current-key nil)
(setf current-values 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))) #'klacks/done)))
(defun klacks/element (source input cont) (defun klacks/element (source input cont)