mirror of
https://github.com/hymkor/lispect.git
synced 2026-09-02 15:17:49 -04:00
example.lsp: make ctrlc with (create-string)
This commit is contained in:
+1
-1
@@ -2,7 +2,7 @@
|
|||||||
(spawn "cmd.exe" "/k" "set PROMPT=$$$S")
|
(spawn "cmd.exe" "/k" "set PROMPT=$$$S")
|
||||||
(spawn "bash"))
|
(spawn "bash"))
|
||||||
|
|
||||||
(defglobal ctrlc (format nil "~A" (convert 3 <character>)))
|
(defglobal ctrlc (create-string 1 (convert 3 <character>)))
|
||||||
(block main
|
(block main
|
||||||
(while t
|
(while t
|
||||||
(expect*
|
(expect*
|
||||||
|
|||||||
Reference in New Issue
Block a user