Commit 6558ee84 authored by david's avatar david

Revision: cxml--devel--1.0--patch-91

Creator: David Lichteblau <>
Date: Mon Feb  9 15:28:15 CET 2004
Standard-date: 2004-02-09 14:28:15 GMT
Modified-files: xml/dom-impl.lisp
Summary: :NOT_FOUND_ERR in remove-named-item

:NOT_FOUND_ERR in remove-named-item
parent 29e4c7c0
......@@ -481,7 +481,7 @@
(defmethod dom:remove-named-item ((self named-node-map) name)
(setf name (rod name))
(with-slots (items) self
(dolist (k items nil)
(dolist (k items (dom-error :NOT_FOUND_ERR "~A not found in ~A" name self))
(cond ((rod= name (dom:node-name k))
(setf items (delete k items))
(return k))))))
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