From 9beceae81d03e5f2b7f31acda78f9aea789f5984 Mon Sep 17 00:00:00 2001
From: emarsden <emarsden>
Date: Wed, 11 Jun 2003 16:10:21 +0000
Subject: [PATCH] Fix bug in simple-streams/strategy.lisp

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

diff --git a/pcl/simple-streams/strategy.lisp b/pcl/simple-streams/strategy.lisp
index 0e780877d..48f3a3f85 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.2 2003/06/07 17:56:28 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.3 2003/06/11 16:10:21 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -460,7 +460,7 @@
                               stream char))
           (when (>= ptr max)
 	    (setf (sm outpos stream) ptr)
-	    (setf ptr (dc-flush-buffer stream ptr t)))
+	    (setf ptr (dc-flush-buffer stream t)))
 	  (setf (bref buffer ptr) code)
 	  (incf ptr))))))
 
-- 
GitLab