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