From 0de8456cdfebcc0832d30bdff1359f7e931f5b50 Mon Sep 17 00:00:00 2001
From: emarsden <emarsden>
Date: Tue, 5 Aug 2003 11:00:49 +0000
Subject: [PATCH] Fix typos.

---
 code/fd-stream.lisp | 4 ++--
 code/gc.lisp        | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp
index 7c5d18abe..09fd4d153 100644
--- a/code/fd-stream.lisp
+++ b/code/fd-stream.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/code/fd-stream.lisp,v 1.70 2003/06/26 13:27:42 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.71 2003/08/05 11:00:49 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -937,7 +937,7 @@
       (multiple-value-bind (okay err) (unix:unix-rename original filename)
 	(unless okay
 	  (cerror "Go on as if nothing bad happened."
-		  "Could not restore ~S to it's original contents: ~A"
+		  "Could not restore ~S to its original contents: ~A"
 		  filename (unix:get-unix-error-msg err))))
       (multiple-value-bind (okay err) (unix:unix-unlink filename)
 	(unless okay
diff --git a/code/gc.lisp b/code/gc.lisp
index 35b436a7d..a4e13c0fd 100644
--- a/code/gc.lisp
+++ b/code/gc.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/code/gc.lisp,v 1.35 2003/05/29 12:35:05 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.36 2003/08/05 11:00:49 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -413,7 +413,7 @@
 	;; optimizing the test away because of the type declaim for
 	;; *bytes-consed-between-gcs*.
 	(warn "The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~
-	       integer.  Reseting it to ~D." *bytes-consed-between-gcs*
+	       integer.  Resetting it to ~D." *bytes-consed-between-gcs*
 	       default-bytes-consed-between-gcs)
 	(setf *bytes-consed-between-gcs* default-bytes-consed-between-gcs))
       (when (and *gc-trigger* (> pre-gc-dyn-usage *gc-trigger*))
-- 
GitLab