Skip to content
Snippets Groups Projects
Commit b6373368 authored by Raymond Toy's avatar Raymond Toy
Browse files

Implement CLEAR-OUTPUT for FD-STREAM's.

This appears to be a very old bug where clear-output didn't clear the
output for fd-streams.
parent 7211ebf3
No related branches found
No related tags found
No related merge requests found
......@@ -1682,7 +1682,9 @@
nil
(values (truncate size (fd-stream-element-size stream))))))
(:file-position
(fd-stream-file-position stream arg1))))
(fd-stream-file-position stream arg1))
(:clear-output
(setf (fd-stream-obuf-tail stream) 0))))
;;; FD-STREAM-FILE-POSITION -- internal.
......
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