blob: 3bf51b51592d901d55f4486e153ce8a50a8b87de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
$NetBSD: patch-ad,v 1.1 2007/05/07 12:42:19 tnn Exp $
--- lisp/rep/xml/reader.jl.orig 2007-05-07 14:12:43.000000000 +0200
+++ lisp/rep/xml/reader.jl
@@ -126,6 +126,7 @@
(let ((data (substitute-entities (read-string-item stream '(#\>)))))
(or (= (current stream) #\>)
(error "Expected '>' character: %s" stream))
+ (next stream)
(list '! data)))
(define (read-tag-body stream)
|
