X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fearly-type.lisp;h=6679a42b7e2e59f9a6d9ceed354c30e89a1d6a91;hb=4c16a9ef1bd70752c2d40d65211ecb76956bbd1d;hp=bbb75ba39ddc0dbd558fc20bd3886199e13805aa;hpb=2768ed83de59354b21ea61de3dea358c53d1ae05;p=sbcl.git

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index bbb75ba..6679a42 100644
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -335,7 +335,7 @@
 		     :enumerable enumerable))
 
 ;;; An ARRAY-TYPE is used to represent any array type, including
-;;; things such as SIMPLE-STRING.
+;;; things such as SIMPLE-BASE-STRING.
 (defstruct (array-type (:include ctype
 				 (class-info (type-class-or-lose 'array)))
                        (:constructor %make-array-type)