X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fsanctify.lisp;h=de4cd40c5b7d0004a59870d6f05f0b72a54a3ec6;hb=9304704f68a18894fa8eb985b387465e5d25e1d5;hp=feee980f170339762fac6314079e0c3cc761513b;hpb=581e3d62de8cb37e13ad9db63e5537c0f962be28;p=sbcl.git

diff --git a/src/compiler/ppc/sanctify.lisp b/src/compiler/ppc/sanctify.lisp
index feee980..de4cd40 100644
--- a/src/compiler/ppc/sanctify.lisp
+++ b/src/compiler/ppc/sanctify.lisp
@@ -7,12 +7,12 @@
 ;;;; While most of SBCL is derived from the CMU CL system, the test
 ;;;; files (like this one) were written from scratch after the fork
 ;;;; from CMU CL.
-;;;; 
+;;;;
 ;;;; This software is in the public domain and is provided with
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :sb!vm)
+(in-package "SB!VM")
 
 
 
@@ -22,12 +22,12 @@
 (defun sanctify-for-execution (component)
   (without-gcing
     (alien-funcall (extern-alien "ppc_flush_icache"
-				 (function void
-					   system-area-pointer
-					   unsigned-long))
-		   (code-instructions component)
-		   (* (code-header-ref component code-code-size-slot)
-		      n-word-bytes)))
+                                 (function void
+                                           system-area-pointer
+                                           unsigned-long))
+                   (code-instructions component)
+                   (* (code-header-ref component code-code-size-slot)
+                      n-word-bytes)))
   nil)