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

31 Dec 2009


      #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))

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/75>
armedbear <http://common-lisp.net/project/armedbear>
armedbear