#81 segv with WITH-OUTPUT-TO-STRING

[Eric Marsden]

Hi,

I get a reproducible SEGV when running some code that
writes large amounts of output to a string, using
WITH-OUTPUT-TO-STRING. This is with current CVS on
x86-linuxglibc22; with the last release I was getting
aborts.

[2]> (bench-string-concat)
*** - handle_fault error2 ! address = 0x24E83000 not in
[0x202A8000,0x21C81328) !
SIGSEGV cannot be cured. Fault address = 0x24E83000.
segmentation fault

Sample code to reproduce the problem:

(defun bench-string-concat (&optional (size 1000000))
(declare (fixnum size))
(with-output-to-string (string)
(dotimes (i size)
(write-sequence "hi there, mate" string))
(length string)))

[Sam Steingold]

Logged In: YES
user_id=5735

thank you for your bug report.
the bug has been fixed in the CVS tree.
you can either wait for the next release (recommended)
or check out the current CVS tree (see http://clisp.cons.org\)
and build CLISP from the sources (be advised that between
releases the CVS tree is very unstable and may not even build
on your platform).