mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in expansion of AREF/ASET for multidimensional arrays

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-28 15:50:47 +02:00
parent 8eb1456342
commit 4fdfb82cec
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmparray.lsp
View file

@ -212,8 +212,8 @@
collect `(let ((%ndx-var ,index))
(declare (ext:array-index %ndx-var))
,(and check `(check-index-in-bounds ,a %ndx-var ,dim-var))
`(setf %output-var
(the ext:array-index (+ %output-var %ndx-var))))
(setf %output-var
(the ext:array-index (+ %output-var %ndx-var))))
do (setf last-dim dim-var))
%output-var))))