/[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.33 by gerd, Sun Apr 27 11:43:43 2003 UTC revision 1.34 by gerd, Tue Jul 1 09:38:07 2003 UTC
# Line 461  Line 461 
461    (unless (constant-continuation-p dimension)    (unless (constant-continuation-p dimension)
462      (give-up))      (give-up))
463    (let ((dim (continuation-value dimension)))    (let ((dim (continuation-value dimension)))
464      `(the (integer 0 ,dim) index)))      `(the (integer 0 (,dim)) index)))
465  ;;;  ;;;
466  (deftransform %check-bound ((array dimension index) * *  (deftransform %check-bound ((array dimension index) * *
467                              :policy (and (> speed safety) (= safety 0)))                              :policy (and (> speed safety) (= safety 0)))

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

  ViewVC Help
Powered by ViewVC 1.1.5