From a60274829b62c938292920f8f19b1c269240e8c2 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Fri, 20 Apr 2012 09:35:43 -0700
Subject: [PATCH] Oops.  Debugging print accidentally left in.

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

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index a91d4d739..b5d34ad0d 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -829,6 +829,7 @@
 		 (flet
 		     ((convert-buffer ()
 			(let ((old-state (fd-stream-oc-state stream)))
+			  #+(or debug-frc-sr)
 			  (format t "old-state = ~S~%" old-state)
 			  (multiple-value-bind (s char-count octet-count new-state)
 			      (stream::octets-to-string-counted
-- 
GitLab