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