From e9b92c27362d466fb832093a4e30fee3413f278f Mon Sep 17 00:00:00 2001
From: Guillaume LE VAILLANT <glv@posteo.net>
Date: Sat, 3 Mar 2018 20:21:42 +0100
Subject: [PATCH] Add missing clear-output operation in stream-misc-dispatch

---
 src/code/stream.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 5807f1b29..d1d15ecf0 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -789,6 +789,8 @@
      (force-output stream))
     (:finish-output
      (finish-output stream))
+    (:clear-output
+     (clear-output stream))
     (:element-type
      (stream-element-type stream))
     (:element-mode
-- 
2.16.2