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