mirror of
https://github.com/hymkor/lispect.git
synced 2026-08-28 12:56:36 -04:00
24 lines
470 B
Common Lisp
24 lines
470 B
Common Lisp
(spawn "cmd.exe")
|
|
(let ((ctrlc (format nil "~A" (convert 3 <character>))))
|
|
(block main
|
|
(while t
|
|
(expect
|
|
("xxx"
|
|
(send ctrlc)
|
|
(sendln "exit")
|
|
(return-from main nil)
|
|
)
|
|
(("yyy" "zzz")
|
|
(send ctrlc)
|
|
(sendln "rem")
|
|
)
|
|
(10 ; timeout second
|
|
(send ctrlc)
|
|
(sendln "exit")
|
|
(return-from main nil)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|