X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fsystem.lisp;h=6d74baf292a75e86893defa1cffea65569d29bbc;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=936b52a84186a75efa759f388732d77207e87b94;hpb=dfa55a883f94470267b626dae77ce7e7dfac3df6;p=sbcl.git

diff --git a/src/compiler/alpha/system.lisp b/src/compiler/alpha/system.lisp
index 936b52a..6d74baf 100644
--- a/src/compiler/alpha/system.lisp
+++ b/src/compiler/alpha/system.lisp
@@ -10,9 +10,8 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
 
-;;;; Type frobbing VOPs
+;;;; type frobbing VOPs
 
 (define-vop (get-lowtag)
   (:translate get-lowtag)
@@ -157,7 +156,7 @@
        (inst bis res temp res)))))
 
 
-;;;; Allocation
+;;;; allocation
 
 (define-vop (dynamic-space-free-pointer)
   (:results (int :scs (sap-reg)))
@@ -184,7 +183,7 @@
     (move csp-tn int)))
 
 
-;;;; Code object frobbing.
+;;;; code object frobbing
 
 (define-vop (code-instructions)
   (:translate code-instructions)
@@ -213,10 +212,8 @@
     (inst addq ndescr offset ndescr)
     (inst subq ndescr (- other-pointer-type function-pointer-type) ndescr)
     (inst addq code ndescr func)))
-
 
-;;;; Other random VOPs.
-
+;;;; other random VOPs.
 
 (defknown sb!unix::do-pending-interrupt () (values))
 (define-vop (sb!unix::do-pending-interrupt)
@@ -229,9 +226,8 @@
 (define-vop (halt)
   (:generator 1
     (inst gentrap halt-trap)))
-
 
-;;;; Dynamic vop count collection support
+;;;; dynamic vop count collection support
 
 (define-vop (count-me)
   (:args (count-vector :scs (descriptor-reg)))