From 7cd6437e8ea0c52746b1bd95a8200ba065ef6c97 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 31 Jan 2004 12:33:48 +0000
Subject: [PATCH] Fixed bad broadcast-stream test

---
 ansi-tests/file-length.lsp | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/ansi-tests/file-length.lsp b/ansi-tests/file-length.lsp
index 1fab2b7d..7acfbb7f 100644
--- a/ansi-tests/file-length.lsp
+++ b/ansi-tests/file-length.lsp
@@ -62,12 +62,10 @@
   t)
 
 (deftest file-length.error.8
-  (signals-error
-   (with-open-file
-     (os "tmp.txt" :direction :output :if-exists :supersede)
-     (let ((s (make-broadcast-stream os)))
-       (unwind-protect (file-length s) (close s))))
-   type-error)
+  (with-open-file
+   (os "tmp.txt" :direction :output :if-exists :supersede)
+   (let ((s (make-broadcast-stream os)))
+     (eqlt (file-length s) (file-length os))))
   t)
 
 (deftest file-length.error.9
-- 
GitLab