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