From: Nikodemus S. <de...@us...> - 2009-07-31 13:12:03
|
Update of /cvsroot/sbcl/sbcl/src/code In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv29173/src/code Modified Files: array.lisp Log Message: 1.0.30.25: deftransform for ARRAY-IN-BOUNDS-P * Patch by Leslie Polzer. * Also give notes when giving up in ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP. Index: array.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/array.lisp,v retrieving revision 1.88 retrieving revision 1.89 diff -u -d -r1.88 -r1.89 --- array.lisp 9 May 2009 09:27:07 -0000 1.88 +++ array.lisp 31 Jul 2009 12:14:01 -0000 1.89 @@ -531,7 +531,7 @@ (defun array-in-bounds-p (array &rest subscripts) #!+sb-doc - "Return T if the SUBSCIPTS are in bounds for the ARRAY, NIL otherwise." + "Return T if the SUBSCRIPTS are in bounds for the ARRAY, NIL otherwise." (if (%array-row-major-index array subscripts nil) t)) |