Fix argument checking of COPY-BYTES!: Previously, FROM was checked

twice, and TO never.
This commit is contained in:
mainzelm 2004-09-17 14:04:51 +00:00
parent 027ce1b9d7
commit 9da5680d55
1 changed files with 2 additions and 2 deletions

View File

@ -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)