From 3fcef2cbbc7b9cf73feb86774e4163bd9275d0b7 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Mon, 2 Jun 2003 14:42:50 +0000 Subject: [PATCH] file-length returns two values instead of one, as required. Bug and solution from Wolfhard Buss. --- code/fd-stream.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index c0a44de93..bd42152ab 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)))) -- GitLab