diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index c0a44de9302a761d3f1333f8152b3ecf8a37b308..bd42152ab6ca6b2d5120a610b586872796bdeb67 100644 --- a/code/fd-stream.lisp +++ b/code/fd-stream.lisp @@ -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.63 2002/12/12 19:11:11 moore Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.64 2003/06/02 14:42:50 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1055,7 +1055,7 @@ :format-arguments (list stream (unix:get-unix-error-msg dev)))) (if (zerop mode) nil - (truncate size (fd-stream-element-size stream))))) + (values (truncate size (fd-stream-element-size stream)))))) (:file-position (fd-stream-file-position stream arg1))))