diff --git a/streams/file-position.lsp b/streams/file-position.lsp index 6f26334e8c8d4a61ec1e769afb2f2ce3945f5617..9db922d360ec60d1538f546ba99106df390c702c 100644 --- a/streams/file-position.lsp +++ b/streams/file-position.lsp @@ -107,8 +107,8 @@ (deftest file-position.9 (with-input-from-string (s "abcdefghijklmnopqrstuvwxyz") - (loop repeat 26 - for p = (file-position s) + (loop for p = (file-position s) + repeat 26 unless (or (not p) (progn (file-position s p) @@ -120,8 +120,8 @@ (deftest file-position.10 (with-output-to-string (s) - (loop repeat 26 - for p = (file-position s) + (loop for p = (file-position s) + repeat 26 unless (or (not p) (progn (file-position s p)