diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index 8eb583acc34d6f96e410d4ed5c1799c7334885cf..b761bef85ec00c2ef313539c9c9e5c841418424e 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.55 2001/03/04 20:12:35 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.56 2001/06/17 19:06:58 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1023,6 +1023,12 @@ (:charpos (fd-stream-char-pos stream)) (:file-length + (unless (fd-stream-file stream) + (error 'simple-type-error + :datum stream + :expected-type 'file-stream + :format-control "~s is not a stream associated with a file." + :format-arguments (list stream))) (multiple-value-bind (okay dev ino mode nlink uid gid rdev size atime mtime ctime blksize blocks)