Skip to content
Snippets Groups Projects
Commit 45a54c42 authored by pw's avatar pw
Browse files

From Eric Marsden:

FILE-LENGTH should signal a type-error if arg is not associated with a file.
parent b4e52d97
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.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)
......
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