mirror of
https://github.com/hymkor/lispect.git
synced 2026-08-28 12:56:36 -04:00
24 lines
475 B
Common Lisp
24 lines
475 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)
|
|
(send ctrlc)
|
|
(sendln "exit")
|
|
(return-from main nil)
|
|
)
|
|
((1)
|
|
(send ctrlc)
|
|
(sendln "rem")
|
|
)
|
|
((-1)
|
|
(send ctrlc)
|
|
(sendln "exit")
|
|
(return-from main nil)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|