From 8570413d71ae41e7f6b8d826b7455c25074f0610 Mon Sep 17 00:00:00 2001 From: Pierre R. Mai Date: Fri, 8 Oct 2010 17:34:24 +0200 Subject: [PATCH] Fix typo in def-inline definition for row-major-aref for ext:integer64 arrays. This typo (b16 instead of b64) broke aref access for 64bit signed integer specialized arrays (see issue 3082527). --- src/cmp/sysfun.lsp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp index f68729e..674d49f 100644 --- a/src/cmp/sysfun.lsp +++ b/src/cmp/sysfun.lsp @@ -136,7 +136,7 @@ "(#0)->vector.self.b64[#1]") #+:uint64-t (def-inline row-major-aref :unsafe ((array ext:integer64) fixnum) :int64-t - "(#0)->vector.self.i16[#1]") + "(#0)->vector.self.i64[#1]") (def-inline row-major-aref :unsafe ((array double-float) fixnum) :double "(#0)->array.self.df[#1]") (def-inline row-major-aref :unsafe ((array single-float) fixnum) :float -- 1.6.3.1.270.gdd13