mirror of
https://github.com/hymkor/lispect.git
synced 2026-08-27 20:36:34 -04:00
21 lines
472 B
Common Lisp
21 lines
472 B
Common Lisp
(spawn "cmd.exe")
|
|
(let ((ctrlc (format nil "~A" (convert 3 <character>))))
|
|
(block main
|
|
(while t
|
|
(case (expect* 'timeout 10 "xxx" "yyy")
|
|
((0)
|
|
(sendln (string-append ctrlc "exit"))
|
|
(return-from main nil)
|
|
)
|
|
((1)
|
|
(sendln (string-append ctrlc "rem"))
|
|
)
|
|
((-1)
|
|
(sendln (string-append ctrlc "exit"))
|
|
(return-from main nil)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|