diff --git a/src/code/stream.lisp b/src/code/stream.lisp index a91d4d739c94bca4d208b5e74870d5b1f6b381f2..b5d34ad0dc4adac84f088dc518df6d4d9df7a401 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