Skip to content
Snippets Groups Projects
Commit 9beceae8 authored by emarsden's avatar emarsden
Browse files

Fix bug in simple-streams/strategy.lisp

parent 66de1552
No related branches found
No related tags found
No related merge requests found
......@@ -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))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment