[cmucl-ticket] [cmucl] #66: replace on simple-strings

[cmucl]

#66: replace on simple-strings
--------------------+-------------------------------------------------------
 Reporter:  heller  |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  minor   |   Milestone:          
Component:  Core    |     Version:  2012-12 
 Keywords:          |  
--------------------+-------------------------------------------------------
 This code
 {{{
 (deftype index () `(integer 0 #.array-total-size-limit))

 (defun %move-string (from start end to index)
   (declare (type simple-string from to) (type index start end index))
   (replace to from :start1 index :start2 start :end2 end))

 (let ((x (make-string 35893164)))
   (%move-string x 4 4 x 35893164)
   nil)
 }}}
 when executed with `(load (compile-file "test.lisp"))`
 produces this error:
 {{{
 Type-error in kernel::object-not-type-error-handler:
    -499451136 is not of type (mod 536870911)
    [Condition of type type-error]
 }}}
 I don't see the bug in my code, so it seems to be a bug in CMUCL.

 lisp-implementation-version returns "snapshot-2012-12 (20D Unicode)"

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