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