X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-sap.lisp;h=2ef9f244f1d120e11d9b0483ef230cf778f2fae5;hb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;hp=d4fcfe90c87b25010b813f49b7f49e5b26a08a5c;hpb=c3f281f5c34b55170ac43a4679f1528b8bb7c703;p=sbcl.git

diff --git a/src/code/cross-sap.lisp b/src/code/cross-sap.lisp
index d4fcfe9..2ef9f24 100644
--- a/src/code/cross-sap.lisp
+++ b/src/code/cross-sap.lisp
@@ -12,12 +12,9 @@
 
 (in-package "SB!SYS")
 
-(file-comment
-  "$Header$")
-
-;;; SYSTEM-AREA-POINTER is not a primitive type in ANSI Common Lisp, so we
-;;; need a compound type to represent it in the host Common Lisp at
-;;; cross-compile time:
+;;; SYSTEM-AREA-POINTER is not a primitive type in ANSI Common Lisp,
+;;; so we need a compound type to represent it in the host Common Lisp
+;;; at cross-compile time:
 (defstruct (system-area-pointer (:constructor make-sap) (:conc-name "SAP-"))
   ;; the integer representation of the address
   (int (error "missing SAP-INT argument") :type sap-int-type :read-only t))