/[cmucl]/src/code/fd-stream.lisp
ViewVC logotype

Diff of /src/code/fd-stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.108 by rtoy, Sat Jul 3 14:10:40 2010 UTC revision 1.109 by rtoy, Sat Jul 3 15:20:25 2010 UTC
# Line 416  Line 416 
416         (cond         (cond
417           ((stream::ef-flush-state ,(stream::find-external-format extfmt))           ((stream::ef-flush-state ,(stream::find-external-format extfmt))
418            (let* ((sap (fd-stream-obuf-sap stream))            (let* ((sap (fd-stream-obuf-sap stream))
419                   (len (fd-stream-obuf-length stream))                   (len (fd-stream-obuf-length stream)))
420                   (tail (fd-stream-obuf-tail stream)))              (declare (type sys:system-area-pointer sap)
421              (declare (type sys:system-area-pointer sap) (type index len tail))                       (type index len)
422                         (ignorable sap len))
423              (stream::flush-state ,extfmt              (stream::flush-state ,extfmt
424                                   (fd-stream-co-state stream)                                   (fd-stream-co-state stream)
425                                   (lambda (byte)                                   (lambda (byte)

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

  ViewVC Help
Powered by ViewVC 1.1.5