Better support for NetBSD/current

[sbcl.git] / src / compiler / ppc / sanctify.lisp

diff --git a/src/compiler/ppc/sanctify.lisp b/src/compiler/ppc/sanctify.lisp
index 490dc51..de4cd40 100644 (file)
--- a/src/compiler/ppc/sanctify.lisp
+++ b/src/compiler/ppc/sanctify.lisp
@@ -7,30 +7,27 @@
 ;;;; 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")
 
 
 \f
-;;; SANCTIFY-FOR-EXECUTION -- Interface.
-;;;
 ;;; Do whatever is necessary to make the given code component executable.
 ;;; On the 601, we have less to do than on some other PowerPC chips.
-;;; This should what needs to be done in the general case.
-;;; 
+;;; This should be what needs to be done in the general case.
 (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)