Commit 1b2d71b7 authored by wlott's avatar wlott
Browse files

Ack, more typos.

parent b645c555
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.2 1990/11/10 19:20:54 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.3 1990/11/10 19:39:06 wlott Exp $
;;;
;;; This file contains array specific optimizers and transforms.
;;;
......@@ -18,13 +18,13 @@
;;;; Derive-Type Optimizers
;;; ASSERT-NUMBER-OF-ARGS -- internal
;;; ASSERT-ARRAY-RANK -- internal
;;;
;;; Array operations that use a specific number of indices implicitly assert
;;; that the array is of that rank.
;;;
(defun assert-continuation-rank (array rank)
(assert-array-type
(defun assert-array-rank (array rank)
(assert-continuation-type
array
(specifier-type `(array * ,(make-list rank :initial-element '*)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment