Canonicalize in-package argument.

diff --git a/src/compiler/alpha/sanctify.lisp b/src/compiler/alpha/sanctify.lisp
index 1abc6e0..6a8ac10 100644 (file)
--- 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 078c30e..fb25bae 100644 (file)
--- 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 a2f96c8..d100fe0 100644 (file)
--- 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 aa3e55c..de4cd40 100644 (file)
--- 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")
 
 
 \f

diff --git a/src/compiler/sparc/sanctify.lisp b/src/compiler/sparc/sanctify.lisp
index 8a0f415..06bbfe0 100644 (file)
--- 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 d7aa640..e115bc6 100644 (file)
--- 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 6b3453a..66042ec 100644 (file)
--- 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 d7aa640..e115bc6 100644 (file)
--- 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 384871d..aaa9efa 100644 (file)
--- 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"