From: Thiemo S. <th...@us...> - 2005-09-08 07:25:49
|
Update of /cvsroot/sbcl/sbcl/src/compiler/x86 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8344/src/compiler/x86 Modified Files: alloc.lisp sanctify.lisp Log Message: Canonicalize in-package argument. Index: alloc.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/alloc.lisp,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- alloc.lisp 6 Aug 2005 11:31:17 -0000 1.21 +++ alloc.lisp 8 Sep 2005 07:25:32 -0000 1.22 @@ -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) Index: sanctify.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/sanctify.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- sanctify.lisp 14 Jul 2005 19:13:48 -0000 1.2 +++ sanctify.lisp 8 Sep 2005 07:25:32 -0000 1.3 @@ -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)) |