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