X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-tran.lisp;h=0557abc6013d7c898e104a011aab9b37a186cc1b;hb=b0a7abdf2bd6f2d66fcce97196024cdb0e1a1886;hp=4d29fcf65b56a54f352dda7ed5c1c3e96a9c731a;hpb=8ef3aa533aba5ac5760e83b798cd6b2388a807a6;p=sbcl.git

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index 4d29fcf..0557abc 100644
--- a/src/compiler/generic/vm-tran.lisp
+++ b/src/compiler/generic/vm-tran.lisp
@@ -79,7 +79,7 @@
                 `(the ,(type-specifier declared-element-ctype)
                       ,bare-form)))))))
 
-;;; Transform multi-dimensional to one dimensional SIMPLE-ARRAY
+;;; Transform multi-dimensional array to one dimensional data vector
 ;;; access.
 (deftransform data-vector-ref ((array index)
                                (simple-array t))