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

Diff of /src/code/stream.lisp

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

revision 1.70 by emarsden, Tue Apr 6 17:30:12 2004 UTC revision 1.71 by emarsden, Wed Apr 7 11:03:38 2004 UTC
# Line 970  streams." Line 970  streams."
970           (dolist (stream streams min)           (dolist (stream streams min)
971             (let ((res (line-length stream)))             (let ((res (line-length stream)))
972               (when res (setq min (if min (min res min) res)))))))               (when res (setq min (if min (min res min) res)))))))
973          ;; CLHS: The functions file-length, file-position, file-string-length, and
974          ;; stream-external-format return the value from the last component
975          ;; stream; if there are no component streams, file-length and
976          ;; file-position return 0, file-string-length returns 1, and
977          ;; stream-external-format returns :default.
978          (:file-length
979           (if (null streams) 0
980               (file-length (last streams))))
981          (:file-position
982           (if (null streams) 0
983               (file-position (last streams))))
984        (:element-type        (:element-type
985         #+nil ; old, arguably more logical, version         #+nil ; old, arguably more logical, version
986         (let (res)         (let (res)

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.5