X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fchill.lisp;h=3f95a41f9f29afe9e55cbd8a54ab12d5b2f9f71b;hb=a74b0bdb483504f6faddf8089f848f61ed94b92a;hp=7158435c3d6754f03ab1e78f5fab8566a4611a2d;hpb=28d9bb7a509695caaf78d647b6aa1b0f02c0e83a;p=sbcl.git

diff --git a/src/cold/chill.lisp b/src/cold/chill.lisp
index 7158435..3f95a41 100644
--- a/src/cold/chill.lisp
+++ b/src/cold/chill.lisp
@@ -1,6 +1,6 @@
-;;;; This file is not used cold load time. Instead, it can be loaded
-;;;; into an initialized SBCL to get it into a nostalgic frame of
-;;;; mind, remembering the way things were in cold init, so that it
+;;;; This file is not used at cold load time. Instead, it can be
+;;;; loaded into an initialized SBCL to get it into a nostalgic frame
+;;;; of mind, remembering the way things were in cold init, so that it
 ;;;; can READ code which is ordinarily read only when bootstrapping.
 ;;;; (This can be useful when debugging the system, since the debugger
 ;;;; likes to be able to read the source for the code. It can also be
@@ -40,7 +40,8 @@
 	(nicknames (package-nicknames package))
 	(warm-name-prefix "SB-")
 	(cold-name-prefix "SB!"))
-    (when (string= name warm-name-prefix :end1 (length warm-name-prefix))
+    (when (and (> (length name) (length warm-name-prefix))
+	       (string= name warm-name-prefix :end1 (length warm-name-prefix)))
       (let* ((stem (subseq name (length cold-name-prefix)))
 	     (cold-name (concatenate 'simple-string cold-name-prefix stem)))
 	(rename-package package name (cons cold-name nicknames))))))