In function read-pcdata:
*(t * * (setf (aref scratch sp) ch) ;recode character read* * (setf sp (the fixnum (+ sp 1)))* * http://repo.or.cz/w/closure-html.git/blob/HEAD:/src/parse/sgml-parse.lisp#l371 (cond ((= sp se) ;end of scratch pad reached?* * (enlarge-scratch-pad input)* * (setf scratch (a-stream-scratch input)* * se (length scratch))))))))*
Should first enlarge the input buffer, or will cause out of index error.
*(t** (cond ((= sp se) ;end of scratch pad reached?* * (enlarge-scratch-pad input)* * (setf scratch (a-stream-scratch input)* * se (length scratch))))*
* (setf (aref scratch sp) ch) ;recode character read* * (setf sp (the fixnum (+ sp 1)))**))))*