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 @@ ...@@ -5,7 +5,7 @@
;;; domain. ;;; domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -460,7 +460,7 @@
stream char)) stream char))
(when (>= ptr max) (when (>= ptr max)
(setf (sm outpos stream) ptr) (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) (setf (bref buffer ptr) code)
(incf ptr)))))) (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