diff --git a/ansi-tests/file-length.lsp b/ansi-tests/file-length.lsp index 1fab2b7dc5d958e644ec3e53de002fa55b8ac476..7acfbb7fde3557e872151d4bc228a76e7668b2ba 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