9 lines
399 B
Plaintext
9 lines
399 B
Plaintext
;CMLSEQMODIFY - 7994
|
|
; Test case: (let ((a "abcabc") (b (make-array 6 :element-type 'string-char :fill-pointer t))) (replace b a) (delete #\a a) (delete #\a b) (and (equal a "abcabc") (equal b "bcbc")))
|
|
|
|
(do-test "AR7994 - DELETE destroys the contents of simple-strings"
|
|
(let ((foo "abcdef"))
|
|
(and (typep foo 'simple-string)
|
|
(string= (delete #\b foo) "acdef")
|
|
(string= foo "abcdef"))))
|
|
STOP |