/[cmucl]/src/compiler/array-tran.lisp
ViewVC logotype

Diff of /src/compiler/array-tran.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wlott, Sat Nov 10 19:20:54 1990 UTC revision 1.3 by wlott, Sat Nov 10 19:39:06 1990 UTC
# Line 18  Line 18 
18    
19  ;;;; Derive-Type Optimizers  ;;;; Derive-Type Optimizers
20    
21  ;;; ASSERT-NUMBER-OF-ARGS  -- internal  ;;; ASSERT-ARRAY-RANK  -- internal
22  ;;;  ;;;
23  ;;; Array operations that use a specific number of indices implicitly assert  ;;; Array operations that use a specific number of indices implicitly assert
24  ;;; that the array is of that rank.  ;;; that the array is of that rank.
25  ;;;  ;;;
26  (defun assert-continuation-rank (array rank)  (defun assert-array-rank (array rank)
27    (assert-array-type    (assert-continuation-type
28     array     array
29     (specifier-type `(array * ,(make-list rank :initial-element '*)))))     (specifier-type `(array * ,(make-list rank :initial-element '*)))))
30    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5