X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=4a9e054db00eb35ff33957f712a71739be626ba1;hb=70b392926636cc0d870a6e4e7dd8b574f998633d;hp=455d09f7af4ce32085048335d01a143bcc2f31ac;hpb=d515b8a4543a5e120c258846bc0b73eea47046b0;p=sbcl.git diff --git a/src/code/array.lisp b/src/code/array.lisp index 455d09f..4a9e054 100644 --- a/src/code/array.lisp +++ b/src/code/array.lisp @@ -531,7 +531,7 @@ of specialized arrays is supported." (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))