X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fvmdef.lisp;h=1747e09c2692fe87d2839fe260681637157473ba;hb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;hp=3e50b3901f6d433b48ce1efa5fce0275e5f11b0d;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/vmdef.lisp b/src/compiler/vmdef.lisp
index 3e50b39..1747e09 100644
--- a/src/compiler/vmdef.lisp
+++ b/src/compiler/vmdef.lisp
@@ -12,17 +12,14 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 ;;; Return the template having the specified name, or die trying.
 (defun template-or-lose (x)
   (the template
        (or (gethash x *backend-template-names*)
 	   (error "~S is not a defined template." x))))
 
-;;; Return the SC structure, SB structure or SC number corresponding to a
-;;; name, or die trying.
+;;; Return the SC structure, SB structure or SC number corresponding
+;;; to a name, or die trying.
 (defun sc-or-lose (x)
   (the sc
        (or (gethash x *backend-sc-names*)