Skip to content
Snippets Groups Projects
Commit 0de8456c authored by emarsden's avatar emarsden
Browse files

Fix typos.

parent 4187a2f3
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -937,7 +937,7 @@
(multiple-value-bind (okay err) (unix:unix-rename original filename) (multiple-value-bind (okay err) (unix:unix-rename original filename)
(unless okay (unless okay
(cerror "Go on as if nothing bad happened." (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)))) filename (unix:get-unix-error-msg err))))
(multiple-value-bind (okay err) (unix:unix-unlink filename) (multiple-value-bind (okay err) (unix:unix-unlink filename)
(unless okay (unless okay
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -413,7 +413,7 @@
;; optimizing the test away because of the type declaim for ;; optimizing the test away because of the type declaim for
;; *bytes-consed-between-gcs*. ;; *bytes-consed-between-gcs*.
(warn "The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~ (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) default-bytes-consed-between-gcs)
(setf *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*)) (when (and *gc-trigger* (> pre-gc-dyn-usage *gc-trigger*))
......
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