From 4fdfb82cecc0ee4c50c38542f3a005b13808f87d Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 28 May 2010 15:50:47 +0200 Subject: [PATCH] Fixed typo in expansion of AREF/ASET for multidimensional arrays --- src/cmp/cmparray.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmparray.lsp b/src/cmp/cmparray.lsp index 29cec5ae9..55868f691 100644 --- a/src/cmp/cmparray.lsp +++ b/src/cmp/cmparray.lsp @@ -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))))