Commit 166c5b55 authored by david's avatar david

Revision: cxml--devel--1.0--patch-47

Creator: David Lichteblau <>
Date: Thu Feb  5 15:01:21 CET 2004
Standard-date: 2004-02-05 14:01:21 GMT
Modified-files: xml/dom-impl.lisp
Summary: delete-data: Arraytyp korrigiert

delete-data: Arraytyp korrigiert
parent 6de633eb
......@@ -471,7 +471,8 @@
(when (minusp count)
(dom-error :INDEX_SIZE_ERR "count is negative"))
(setf count (min count (- (length value) offset)))
(let ((new (make-array (- (length value) count) :element-type (type-of value))))
(let ((new (make-array (- (length value) count)
:element-type (array-element-type value))))
(replace new value
:start1 0 :end1 offset
:start2 0 :end2 offset)
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