[cmucl-ticket] [cmucl] #76: REPLACE on strings incorrect

[cmucl]

#76: REPLACE on strings incorrect
--------------------+-------------------------------------------------------
 Reporter:  rtoy    |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  major   |   Milestone:          
Component:  Core    |     Version:  2013-03 
 Keywords:          |  
--------------------+-------------------------------------------------------
 Consider:
 {{{
 (defun zot (workspace s)
   (declare (simple-string workspace s))
   (replace workspace s :start1 1 :end1 5 :start2 1 :end2 5))

 (defparameter *r* (make-string 40 :initial-element #\A))

 (compile 'zot)
 (zot *r* "a12345")
 }}}

 After executing this, {{{*r*}}} should contain "A1234AAAA.." but it
 actually contains "a1234AAAA..".  The {{{start1}}} and {{{start2}}}
 indices were not honored.

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/76>
cmucl <http://common-lisp.net/project/cmucl>
Cmucl is a high-performance, free Common Lisp implementation.