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