...
 
Commits (1)
......@@ -328,12 +328,13 @@
(klacks/content source input finish)))))
(defun klacks/element-3 (source input tag-values cont)
(with-source (source current-key current-values current-attributes)
(with-source (source current-key current-values current-attributes namespace-stack)
(setf current-key :end-element)
(setf current-values tag-values)
(let ((qname (third tag-values)))
(p/etag input qname)
(validate-end-element *ctx* qname))
(pop namespace-stack)
cont))
(defun klacks/content (source input cont)
......