From 78753112f862b96dd67c29c4e9ecdf5adcdd7bd1 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 4 Nov 2010 23:43:47 +0100
Subject: [PATCH] stream-fresh-line specialized to ansi-stream was passing
 wrong stream to underlying function (J. Jaakkola)

---
 src/clos/streams.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp
index ef9c3dcee..389a9c609 100644
--- a/src/clos/streams.lsp
+++ b/src/clos/streams.lsp
@@ -362,7 +362,7 @@
     t))
 
 (defmethod stream-fresh-line ((stream ansi-stream))
-  (cl:fresh-line ansi-stream))
+  (cl:fresh-line stream))
 
 
 ;; INPUT-STREAM-P