Commit f5a24a62 authored by david's avatar david

Revision: cxml--devel--1.0--patch-59

Creator: David Lichteblau <>
Date: Thu Feb  5 23:35:57 CET 2004
Standard-date: 2004-02-05 22:35:57 GMT
Modified-files: domtest.lisp
Summary: for-each fuer named-node-map

for-each fuer named-node-map
parent 55c95ccf
......@@ -430,8 +430,11 @@
(defun translate-for-each (element)
(with-attributes (|collection| |member|) element
`(dolist (,(%intern |member|) ,(%intern |collection|))
,@(translate-body element))))
`(let ((collection ,(%intern |collection|)))
(when (typep collection 'dom-impl::named-node-map)
(setf collection (dom:items collection)))
(dolist (,(%intern |member|) collection)
,@(translate-body element)))))
(defun test (name &optional (directory *directory*))
(let* ((test-directory (merge-pathnames "tests/level1/core/" directory)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment