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