From 8287cdc4b4c3e9f27c493ab01008bc64e9bcbc38 Mon Sep 17 00:00:00 2001
From: Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
Date: Thu, 30 May 2024 20:14:56 +0200
Subject: [PATCH] Cosmetic change

---
 code/reader/macro-functions.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/code/reader/macro-functions.lisp b/code/reader/macro-functions.lisp
index 59c6453..99ac877 100644
--- a/code/reader/macro-functions.lisp
+++ b/code/reader/macro-functions.lisp
@@ -1309,9 +1309,8 @@
                  (unread-char (%character condition) stream)
                  fallback-value))))
       (let ((feature-expression
-              (with-state-values
-                  (client '*package*       '#:keyword
-                          '*read-suppress* nil)
+              (with-state-values (client '*package*       '#:keyword
+                                         '*read-suppress* nil)
                 (with-forbidden-quasiquotation (context)
                   (read-expression
                    'end-of-input-after-sharpsign-plus-minus