find-element, find-event

2007-02-18 16:46:32 +00:00
parent 2d9a419c5c
commit 90a6079532
5 changed files with 198 additions and 36 deletions
--- a/klacks/klacks-impl.lisp
+++ b/klacks/klacks-impl.lisp
@ -79,6 +79,12 @@
    (fill-source source)
    (apply #'values current-values)))

+(defmethod klacks:peek-next ((source cxml-source))
+  (with-source (source current-key current-values)
+    (setf current-key nil)
+    (fill-source source)
+    (apply #'values current-key current-values)))
+
 (defmethod klacks:consume ((source cxml-source))
  (with-source (source current-key current-values)
    (fill-source source)