projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.43.77: missing FINALIZE :DONT-SAVE T arguments in contribs
[sbcl.git]
/
contrib
/
sb-simple-streams
/
file.lisp
diff --git
a/contrib/sb-simple-streams/file.lisp
b/contrib/sb-simple-streams/file.lisp
index
4cfacd4
..
01da23b
100644
(file)
--- a/
contrib/sb-simple-streams/file.lisp
+++ b/
contrib/sb-simple-streams/file.lisp
@@
-80,7
+80,8
@@
(format *terminal-io* "~&;;; ** closed ~S (fd ~D)~%"
namestring fd)
(when original
(format *terminal-io* "~&;;; ** closed ~S (fd ~D)~%"
namestring fd)
(when original
- (revert-file namestring original))))
+ (revert-file namestring original)))
+ :dont-save t)
stream)))))))
(defmethod device-open ((stream file-simple-stream) options)
stream)))))))
(defmethod device-open ((stream file-simple-stream) options)
@@
-244,7
+245,8
@@
(sb-ext:finalize stream
(lambda ()
(sb-posix:munmap buffer size)
(sb-ext:finalize stream
(lambda ()
(sb-posix:munmap buffer size)
- (format *terminal-io* "~&;;; ** unmapped ~S" buffer))))))
+ (format *terminal-io* "~&;;; ** unmapped ~S" buffer))
+ :dont-save t))))
stream)))
stream)))