From 8034185d4a93251e4811ba2daa7323ee9bcaa628 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 4 Jul 2009 19:54:40 +0200 Subject: [PATCH] Fixed typo in type propagators for ASET/AREF --- src/cmp/cmpprop.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpprop.lsp b/src/cmp/cmpprop.lsp index 5ff8faab2..28bb4ae2b 100644 --- a/src/cmp/cmpprop.lsp +++ b/src/cmp/cmpprop.lsp @@ -40,13 +40,13 @@ compute it. This version only handles the simplest cases." (def-type-propagator si::aset (fname obj array &rest indices) (let* ((array-type (c1form-primary-type array)) - (elt-type (or (type-from-array-elt array) t))) + (elt-type (or (type-from-array-elt array-type) t))) (values (list* elt-type array-type (make-list (length indices) :initial-element 'si::index)) elt-type))) (def-type-propagator aref (fname array &rest indices) (let* ((array-type (c1form-primary-type array)) - (elt-type (or (type-from-array-elt array) t))) + (elt-type (or (type-from-array-elt array-type) t))) (values (list* array-type (make-list (length indices) :initial-element 'si::index)) elt-type)))