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

Fix typo in DELETE-ORIGINAL.

parent 92060c4b
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.68 2003/06/10 16:52:36 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.69 2003/06/11 13:00:17 emarsden Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -957,7 +957,7 @@ ...@@ -957,7 +957,7 @@
(unless okay (unless okay
(cerror "Go on as if nothing bad happened." (cerror "Go on as if nothing bad happened."
"Could not delete ~S during close of ~S: ~A" "Could not delete ~S during close of ~S: ~A"
original stream (unix:get-unix-error-msg err)))))) original filename (unix:get-unix-error-msg err))))))
;;; FD-STREAM-MISC-ROUTINE -- input ;;; FD-STREAM-MISC-ROUTINE -- input
;;; ;;;
......
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