Fix argument checking of COPY-BYTES!: Previously, FROM was checked
twice, and TO never.
This commit is contained in:
parent
027ce1b9d7
commit
9da5680d55
|
@ -370,8 +370,8 @@
|
||||||
(lambda (from from-index to to-index count)
|
(lambda (from from-index to to-index count)
|
||||||
(cond ((and (or (vm-string? from)
|
(cond ((and (or (vm-string? from)
|
||||||
(code-vector? from))
|
(code-vector? from))
|
||||||
(or (vm-string? from)
|
(or (vm-string? to)
|
||||||
(code-vector? from))
|
(code-vector? to))
|
||||||
(<= 0 from-index)
|
(<= 0 from-index)
|
||||||
(<= 0 to-index)
|
(<= 0 to-index)
|
||||||
(<= 0 count)
|
(<= 0 count)
|
||||||
|
|
Loading…
Reference in New Issue