Commit 678559ca authored by david's avatar david

Revision: cxml--devel--1.0--patch-78

Creator: David Lichteblau <>
Date: Fri Feb  6 23:07:15 CET 2004
Standard-date: 2004-02-06 22:07:15 GMT
Modified-files: domtest.lisp
Summary: named-node-map-hack auch fuer assertSize

named-node-map-hack auch fuer assertSize
parent a8d2451a
......@@ -359,8 +359,10 @@
(defun translate-assert-size (element)
(with-attributes (|collection| |size|) element
`(assert (eql (length ,(%intern |collection|))
,(parse-java-literal |size|)))))
`(let ((collection ,(%intern |collection|)))
(when (typep collection 'dom-impl::named-node-map)
(setf collection (dom:items collection)))
(assert (eql (length collection) ,(parse-java-literal |size|))))))
(defun translate-assert-instance-of (element)
`(assert ,(translate-instance-of element)))
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