From 1407a500b451e18e086c6900332a9dcef350b7d9 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 24 Jul 2009 01:08:37 +0000
Subject: [PATCH] Oops.  Remove debugging print.

---
 pcl/simple-streams/strategy.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/pcl/simple-streams/strategy.lisp b/pcl/simple-streams/strategy.lisp
index 03e0f1ba6..7ee806ab5 100644
--- a/pcl/simple-streams/strategy.lisp
+++ b/pcl/simple-streams/strategy.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.18 2009/07/23 21:37:00 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.19 2009/07/24 01:08:37 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -610,7 +610,6 @@
 (declaim (ftype j-write-chars-fn (dc write-chars :ef)))
 (defun (dc write-chars :ef) (string stream start end)
   (with-stream-class (dual-channel-simple-stream stream)
-    (format t "dc write-chars ~%")
     (funcall (%dc-write-chars-fn (sm external-format stream))
 	     string stream start end)))
 
-- 
GitLab