From 723791aed59813a5d87e1cae78666c4cae802bc8 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sun, 1 Mar 1998 21:55:45 +0000
Subject: [PATCH] Fix doc. typos "the the" -> "the".

---
 compiler/checkgen.lisp | 4 ++--
 compiler/dump.lisp     | 4 ++--
 compiler/globaldb.lisp | 6 +++---
 compiler/locall.lisp   | 4 ++--
 4 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/compiler/checkgen.lisp b/compiler/checkgen.lisp
index 8b408887c..7df73a9ef 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 7c83383f1..3b633b4e3 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 9216f91bb..f56628a96 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 28a955533..6d9881952 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,
-- 
GitLab