diff options
Diffstat (limited to 'lang/sbcl/files/patch-tests_seq.pure.lisp')
| -rw-r--r-- | lang/sbcl/files/patch-tests_seq.pure.lisp | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/lang/sbcl/files/patch-tests_seq.pure.lisp b/lang/sbcl/files/patch-tests_seq.pure.lisp deleted file mode 100644 index 89ea7f46a98d..000000000000 --- a/lang/sbcl/files/patch-tests_seq.pure.lisp +++ /dev/null @@ -1,21 +0,0 @@ ---- tests/seq.pure.lisp.orig 2021-07-30 08:42:10 UTC -+++ tests/seq.pure.lisp -@@ -584,3 +584,18 @@ - ;; Try all other numeric array types - (dolist (y arrays) - (assert (equalp x y))))))) -+ -+;; lp#1938598 -+(with-test (:name :vector-replace-self) -+ ;; example 1 -+ (let ((string (make-array 0 :adjustable t :fill-pointer 0 :element-type 'character))) -+ (declare (notinline replace)) -+ (vector-push-extend #\_ string) -+ ;; also test it indirectly -+ (replace string string :start1 1 :start2 0)) -+ ;; example 2 -+ (let ((string (make-array 0 :adjustable t :fill-pointer 0 :element-type 'character))) -+ (declare (notinline replace)) -+ (loop for char across "tset" do (vector-push-extend char string)) -+ (replace string string :start2 1 :start1 2) -+ (assert (string= string "tsse")))) |