Skip to content
Snippets Groups Projects
Commit a35493d2 authored by wlott's avatar wlott
Browse files

Forgot to call length on the indices &rest arg in the aref derive-type

optimizer.
parent 67fbaa6f
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.3 1990/11/10 19:39:06 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.4 1990/11/13 06:16:57 wlott Exp $
;;; ;;;
;;; This file contains array specific optimizers and transforms. ;;; This file contains array specific optimizers and transforms.
;;; ;;;
...@@ -71,7 +71,7 @@ ...@@ -71,7 +71,7 @@
;;; AREF -- derive-type optimizer. ;;; AREF -- derive-type optimizer.
;;; ;;;
(defoptimizer (aref derive-type) ((array &rest indices)) (defoptimizer (aref derive-type) ((array &rest indices))
(assert-array-rank array indices) (assert-array-rank array (length indices))
(extract-element-type array)) (extract-element-type array))
;;; %ASET -- derive-type optimizer. ;;; %ASET -- derive-type optimizer.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment