From 3c4b2d2e0b16df14f5040db0f083ccc70ac39e07 Mon Sep 17 00:00:00 2001
From: HAYAMA_Kaoru <iyahaya@nifty.com>
Date: Sun, 1 Dec 2024 00:46:54 +0900
Subject: [PATCH] example.lsp: make `ctrlc` with `(create-string)`

---
 example.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/example.lsp b/example.lsp
index 10f43e5..4b28228 100644
--- a/example.lsp
+++ b/example.lsp
@@ -2,7 +2,7 @@
   (spawn "cmd.exe" "/k" "set PROMPT=$$$S")
   (spawn "bash"))
 
-(defglobal ctrlc (format nil "~A" (convert 3 <character>)))
+(defglobal ctrlc (create-string 1 (convert 3 <character>)))
 (block main
   (while t
     (expect*