Skip to content
Snippets Groups Projects
Commit b65b937e authored by dtc's avatar dtc
Browse files

Fix for the stream-write-byte dispatch in write-byte; from Brian

Spilsbury.
parent 522cee82
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.38 1999/02/02 10:54:32 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.39 1999/02/11 12:17:58 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -631,7 +631,8 @@ ...@@ -631,7 +631,8 @@
(defun write-byte (integer stream) (defun write-byte (integer stream)
"Outputs the Integer to the binary Stream." "Outputs the Integer to the binary Stream."
(with-out-stream stream (lisp-stream-bout integer) (stream-write-byte)) (with-out-stream stream (lisp-stream-bout integer)
(stream-write-byte integer))
integer) integer)
......
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