Skip to content
Snippets Groups Projects
Commit 7b95ed2b authored by rtoy's avatar rtoy
Browse files

Fix some compiler notes by adding declarations and removing one

variable that was shadowing another.
parent dea35f4f
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.108 2010/07/03 14:10:40 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.109 2010/07/03 15:20:25 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -416,10 +416,10 @@
(cond
((stream::ef-flush-state ,(stream::find-external-format extfmt))
(let* ((sap (fd-stream-obuf-sap stream))
(len (fd-stream-obuf-length stream))
(tail (fd-stream-obuf-tail stream)))
(declare (type sys:system-area-pointer sap) (type index len tail))
(len (fd-stream-obuf-length stream)))
(declare (type sys:system-area-pointer sap)
(type index len)
(ignorable sap len))
(stream::flush-state ,extfmt
(fd-stream-co-state stream)
(lambda (byte)
......
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