From f2a730f1073e41d78557019085fbb0c662fd3189 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=EA=99=AE?= <ymir@ulthar.xyz>
Date: Sun, 2 Jun 2024 11:03:58 -0700
Subject: [PATCH] remove leftover testing variable

---
 src/command.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/command.lisp b/src/command.lisp
index 971977d..37f9f83 100644
--- a/src/command.lisp
+++ b/src/command.lisp
@@ -1057,7 +1057,7 @@ _~~A() {
         (dolist (line lines)
           (format stream "  ~A~%" line))
         (format stream "~%")
-        (dolist (line (split-sequence #\Newline *s*))
+        (dolist (line (split-sequence #\Newline code))
           (format T "    ~A~%" line))
         (format stream "~%"))))