[armedbear-ticket] [armedbear] #75: Character \U0080 causes infinite loop

#75: Character \U0080 causes infinite loop ------------------------+--------------------------------------------------- Reporter: ehuelsmann | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: CLOS | Version: Keywords: | ------------------------+--------------------------------------------------- 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))