mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 15:22:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove two more uses of (truly-the cons)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-30 11:21:26 +01:00
parent 331b892d34
commit 2e77344a54
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/arraylib.lsp
View file

@ -136,7 +136,7 @@ INDEXes must be equal to the rank of ARRAY."
(do* ((r (array-rank array))
(i 0 (1+ i))
(j 0)
(s indices (cdr (truly-the cons s))))
(s indices (cons-cdr s)))
((null s)
(when (< i r)
(indexing-error array indices))
@ -144,7 +144,7 @@ INDEXes must be equal to the rank of ARRAY."
(declare (ext:array-index j)
(fixnum i r))
(let* ((d (array-dimension array i))
(o (car (truly-the cons s)))
(o (cons-car s))
ndx)
(declare (ext:array-index ndx))
(unless (and (typep o 'fixnum)