Skip to content
Snippets Groups Projects
Commit 723791ae authored by dtc's avatar dtc
Browse files

Fix doc. typos "the the" -> "the".

parent fea0053c
No related branches found
No related tags found
No related merge requests found
......@@ -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,
......
......@@ -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*)
......
......@@ -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)
......
......@@ -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,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment