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