Changeset View
Changeset View
Standalone View
Standalone View
lang/sbcl/files/patch-src_code_seq.lisp
- This file was moved from lang/sbcl/files/patch_seq.lisp.
--- work/sbcl-2.1.7/src/code/seq.lisp 2021-07-30 10:42:09.000000000 +0200 | --- src/code/seq.lisp.orig 2021-07-30 08:42:09 UTC | ||||
+++ /home/krion/sbcl/src/code/seq.lisp 2021-08-06 22:34:09.026438000 +0200 | +++ src/code/seq.lisp | ||||
@@ -722,52 +722,53 @@ | @@ -722,52 +722,53 @@ | ||||
collect `(eq ,tag ,(sb-vm:saetp-typecode saetp))))) | collect `(eq ,tag ,(sb-vm:saetp-typecode saetp))))) | ||||
;;;; REPLACE | ;;;; REPLACE | ||||
-(defun vector-replace (vector1 vector2 start1 start2 end1 diff) | -(defun vector-replace (vector1 vector2 start1 start2 end1 diff) | ||||
- (declare ((or (eql -1) index) start1 start2 end1) | - (declare ((or (eql -1) index) start1 start2 end1) | ||||
- (optimize (sb-c::insert-array-bounds-checks 0)) | - (optimize (sb-c::insert-array-bounds-checks 0)) | ||||
- ((integer -1 1) diff)) | - ((integer -1 1) diff)) | ||||
▲ Show 20 Lines • Show All 133 Lines • Show Last 20 Lines |