From 8da864365c7e0137d6a92c91ff89202f1515e43f Mon Sep 17 00:00:00 2001
From: Thiemo Seufer <ths@networkno.de>
Date: Thu, 8 Sep 2005 07:25:32 +0000
Subject: [PATCH] Canonicalize in-package argument.

---
 src/compiler/alpha/sanctify.lisp  | 2 +-
 src/compiler/hppa/sanctify.lisp   | 2 +-
 src/compiler/mips/sanctify.lisp   | 2 +-
 src/compiler/ppc/sanctify.lisp    | 2 +-
 src/compiler/sparc/sanctify.lisp  | 2 +-
 src/compiler/x86-64/sanctify.lisp | 2 +-
 src/compiler/x86/alloc.lisp       | 6 ++++--
 src/compiler/x86/sanctify.lisp    | 2 +-
 version.lisp-expr                 | 2 +-
 9 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/src/compiler/alpha/sanctify.lisp b/src/compiler/alpha/sanctify.lisp
index 1abc6e085..6a8ac1046 100644
--- a/src/compiler/alpha/sanctify.lisp
+++ b/src/compiler/alpha/sanctify.lisp
@@ -12,7 +12,7 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :sb!vm)
+(in-package "SB!VM")
 
 (defun sanctify-for-execution (component)
   (declare (ignore component))
diff --git a/src/compiler/hppa/sanctify.lisp b/src/compiler/hppa/sanctify.lisp
index 078c30e81..fb25bae81 100644
--- a/src/compiler/hppa/sanctify.lisp
+++ b/src/compiler/hppa/sanctify.lisp
@@ -12,7 +12,7 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :sb!vm)
+(in-package "SB!VM")
 
 (defun sanctify-for-execution (component)
   (without-gcing
diff --git a/src/compiler/mips/sanctify.lisp b/src/compiler/mips/sanctify.lisp
index a2f96c887..d100fe0a5 100644
--- a/src/compiler/mips/sanctify.lisp
+++ b/src/compiler/mips/sanctify.lisp
@@ -12,7 +12,7 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :sb!vm)
+(in-package "SB!VM")
 
 (defun sanctify-for-execution (component)
   (without-gcing
diff --git a/src/compiler/ppc/sanctify.lisp b/src/compiler/ppc/sanctify.lisp
index aa3e55c65..de4cd40c5 100644
--- a/src/compiler/ppc/sanctify.lisp
+++ b/src/compiler/ppc/sanctify.lisp
@@ -12,7 +12,7 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :sb!vm)
+(in-package "SB!VM")
 
 
 
diff --git a/src/compiler/sparc/sanctify.lisp b/src/compiler/sparc/sanctify.lisp
index 8a0f41591..06bbfe0ef 100644
--- a/src/compiler/sparc/sanctify.lisp
+++ b/src/compiler/sparc/sanctify.lisp
@@ -12,7 +12,7 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :sb!vm)
+(in-package "SB!VM")
 
 ;;; The comments in some of the cmucl source read that "the i and d
 ;;; caches are unified, and so there is no need to flush them."
diff --git a/src/compiler/x86-64/sanctify.lisp b/src/compiler/x86-64/sanctify.lisp
index d7aa6405a..e115bc604 100644
--- a/src/compiler/x86-64/sanctify.lisp
+++ b/src/compiler/x86-64/sanctify.lisp
@@ -12,7 +12,7 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :sb!vm)
+(in-package "SB!VM")
 
 (defun sanctify-for-execution (component)
   (declare (ignore component))
diff --git a/src/compiler/x86/alloc.lisp b/src/compiler/x86/alloc.lisp
index 6b3453a1f..66042ec93 100644
--- a/src/compiler/x86/alloc.lisp
+++ b/src/compiler/x86/alloc.lisp
@@ -127,7 +127,8 @@
     (inst rep)
     (inst stos zero)))
 
-(in-package :sb!c)
+(in-package "SB!C")
+
 (defoptimizer (allocate-vector stack-allocate-result)
     ((type length words) node)
   (ecase (policy node stack-allocate-vector)
@@ -158,7 +159,8 @@
 
     (dolist (arg args)
       (annotate-1-value-lvar arg))))
-(in-package :sb!vm)
+
+(in-package "SB!VM")
 
 ;;;
 (define-vop (allocate-code-object)
diff --git a/src/compiler/x86/sanctify.lisp b/src/compiler/x86/sanctify.lisp
index d7aa6405a..e115bc604 100644
--- a/src/compiler/x86/sanctify.lisp
+++ b/src/compiler/x86/sanctify.lisp
@@ -12,7 +12,7 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :sb!vm)
+(in-package "SB!VM")
 
 (defun sanctify-for-execution (component)
   (declare (ignore component))
diff --git a/version.lisp-expr b/version.lisp-expr
index 384871d9c..aaa9efa7e 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.4.45"
+"0.9.4.46"
-- 
2.11.4.GIT