Character \U0080 causes infinite loop

[ehuelsmann]

The following code causes an infinite loop on systems which do not support character \U0080 in their default output character set:

(defparameter single-character-symbols

'#.(let ((a (make-array 129)))

(dotimes (i 129)

(setf (svref a i) (make-string 1 :initial-element (code-char i))))

a))

[ehuelsmann]

That is to say: the above code causes said infinite loop on *file compilation* of the above code.

[ehuelsmann]

Definitely not the CLOS component; rather the compiler component. However, since I know the fix now: set to "libraries" component.

[ehuelsmann]

Fixed in r12321.