buffer-set-font-spec strange behavior

[Dieter Holz <dieter@ifi.wwz.unibas.ch>]

Hi,
I got a Lisp error in the following code:

;initialitation
(progn (setf fred (make-instance 'fred-window))
       (setf buff (fred-buffer fred))
       (dotimes (i 10000)
         (dotimes (j 40)
           (buffer-insert buff #\a))
         (buffer-insert buff #\newline))
       (fred-update fred))


; it works
(progn (setf j 0)
       (dotimes (i 20)
         (buffer-set-font-spec buff :bold (setf j (+ j 41)) (+ j 10))
         (buffer-set-font-spec buff :bold (+ j 20) (+ j 30)))
       (fred-update fred))


;here's the bug
(progn (setf j 0)
       (dotimes (i 9900)
         (buffer-set-font-spec buff :bold (setf j (+ j 41)) (+ j 10))
         (buffer-set-font-spec buff :bold (+ j 20) (+ j 30))))

(fred-update fred)

(set-fred-display-start-mark fred 300000)



What can I do?

Dieter Holz