X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-format.lisp;h=8e1bbe3201ba539e00fc0d2e1bbcaeab92c00bf9;hb=cab2c71bb1bb8a575d9eebdae335e731daa64183;hp=152eb3aa038227e1379e5c57dbce12c01f29f52d;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/early-format.lisp b/src/code/early-format.lisp
index 152eb3a..8e1bbe3 100644
--- a/src/code/early-format.lisp
+++ b/src/code/early-format.lisp
@@ -9,9 +9,6 @@
 
 (in-package "SB!FORMAT")
 
-(file-comment
-  "$Header$")
-
 (defparameter *format-whitespace-chars*
   (vector #\space
 	  #\newline
@@ -48,7 +45,7 @@
 (defvar *only-simple-args*)
 
 ;;; Used by the expander stuff. We do an initial pass with this as NIL.
-;;; If someone doesn't like this, they (throw 'need-orig-args nil) and we try
+;;; If someone doesn't like this, they (THROW 'NEED-ORIG-ARGS NIL) and we try
 ;;; again with it bound to T. If this is T, we don't try to do anything
 ;;; fancy with args.
 (defvar *orig-args-available* nil)