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