From f6d858704d69fb5bb68c2861d912fb5b1b7b0306 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes <csr21@cantab.net> Date: Thu, 24 Mar 2022 15:02:34 +0000 Subject: [PATCH] Fix non-standard LOOP construct --- streams/file-position.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/streams/file-position.lsp b/streams/file-position.lsp index 6f26334e..9db922d3 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) -- GitLab