OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

die letzten paar nicht-ascii zeichen raus, macht das leben einfacher

Browse Source
This commit is contained in:
dlichteblau
2006-09-10 14:55:29 +00:00
parent 70fd8ddd7d
commit ac6d074603
4 changed files with 9 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
xml/xml-parse.lisp
View File

@ -7,11 +7,11 @@
;;; Author: David Lichteblau <david@lichteblau.com>
;;; License: Lisp-LGPL (See file COPYING for details).
;;; ---------------------------------------------------------------------------
;;; © copyright 1999 by Gilbert Baumann
;;; © copyright 2003 by Henrik Motakef
;;; © copyright 2004 knowledgeTools Int. GmbH
;;; © copyright 2004 David Lichteblau
;;; © copyright 2005 David Lichteblau
;;; (c) copyright 1999 by Gilbert Baumann
;;; (c) copyright 2003 by Henrik Motakef
;;; (c) copyright 2004 knowledgeTools Int. GmbH
;;; (c) copyright 2004 David Lichteblau
;;; (c) copyright 2005 David Lichteblau
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Library General Public
@ -3177,7 +3177,7 @@
(cond ((%= rptr fptr)
;; underflow -- hmm inject the scratch-pad with what we
;; read and continue, while using read-rune and collecting
;; d.h. besser wäre hier auch while-reading zu benutzen.
;; d.h. besser waere hier auch while-reading zu benutzen.
(setf (xstream-read-ptr ,input) rptr)
(multiple-value-setq (,res ,res-start ,res-end)
(with-rune-collector/raw (collect)