example.lsp: make ctrlc with (create-string)

2026-08-28 04:46:59 -04:00 · 2024-12-01 00:47:10 +09:00
parent f8b907a15d
commit 3c4b2d2e0b
1 changed files with 1 additions and 1 deletions
@@ -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*