diff --git a/compiler/checkgen.lisp b/compiler/checkgen.lisp
index 8b408887c7503f704236e18901ec1cb1cc82372c..7df73a9ef0c71a34c5416df2a13bd5b47568fb12 100644
--- a/compiler/checkgen.lisp
+++ b/compiler/checkgen.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/checkgen.lisp,v 1.25 1998/01/06 16:51:51 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/checkgen.lisp,v 1.26 1998/03/01 21:55:39 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -146,7 +146,7 @@
 ;;;    Cont is a continuation we are doing a type check on and Types is a list
 ;;; of types that we are checking its values against.  If we have proven
 ;;; that Cont generates a fixed number of values, then for each value, we check
-;;; whether it is cheaper to then difference between the the proven type and
+;;; whether it is cheaper to then difference between the proven type and
 ;;; the corresponding type in Types.  If so, we opt for a :HAIRY check with
 ;;; that test negated.  Otherwise, we try to do a simple test, and if that is
 ;;; impossible, we do a hairy test with non-negated types.  If true,
diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index 7c83383f1073ad137a776ea305b397aa056328b3..3b633b4e321ea41950fbd6188eafb6495e7566fa 100644
--- a/compiler/dump.lisp
+++ b/compiler/dump.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.66 1997/11/07 19:24:07 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.67 1998/03/01 21:55:41 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -113,7 +113,7 @@
 
 
 ;;; A list of the Circularity structures for all of the circularities detected
-;;; in the the current top-level call to Dump-Object.  Setting this lobotomizes
+;;; in the current top-level call to Dump-Object.  Setting this lobotomizes
 ;;; circularity detection as well, since circular dumping uses the table.
 ;;;
 (defvar *circularities-detected*)
diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 9216f91bb08eb67de16653a920a0d752e75a6918..f56628a963ad141c355ec49fcb5685a225fe94c5 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.35 1997/11/04 09:10:48 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.36 1998/03/01 21:55:43 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -885,7 +885,7 @@
 ;;; CLEAR-INFO  --  Public
 ;;;
 (defmacro clear-info (class type name)
-  "Clear the information of the the specified Type and Class for Name in the
+  "Clear the information of the specified Type and Class for Name in the
   current environment, allowing any inherited info to become visible.  We
   return true if there was any info."
   (let* ((class (symbol-name class))
@@ -1083,7 +1083,7 @@
 (define-info-type variable where-from (member :declared :assumed :defined)
   :assumed)
 
-;;; The the lisp object which is the value of this constant, if known.
+;;; The lisp object which is the value of this constant, if known.
 (define-info-type variable constant-value t
   (if (boundp name)
       (values (symbol-value name) t)
diff --git a/compiler/locall.lisp b/compiler/locall.lisp
index 28a955533487469ec9aff2897f7d8938aee4d0b8..6d988195203e5548db1babc0c8488ec9cedbf618 100644
--- a/compiler/locall.lisp
+++ b/compiler/locall.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.46 1994/10/31 04:27:28 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.47 1998/03/01 21:55:45 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -648,7 +648,7 @@
 ;;;
 ;;;    Converting to a let has differing significance to various parts of the
 ;;; compiler:
-;;; -- The body of a Let is spliced in immediately after the the corresponding
+;;; -- The body of a Let is spliced in immediately after the corresponding
 ;;;    combination node, making the control transfer explicit and allowing lets
 ;;;    to mashed together into a single block.  The value of the let is
 ;;;    delivered directly to the original continuation for the call,