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

Fixed typo in type propagators for ASET/AREF

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-04 19:54:40 +02:00
parent 39d9ee467d
commit 8034185d4a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpprop.lsp
View file

@ -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)))