Implement (expect) like (case)

2026-08-29 05:16:34 -04:00 · 2024-11-30 02:28:24 +09:00
parent de6a18813b
commit 4ffb196563
3 changed files with 62 additions and 6 deletions
@@ -2,17 +2,17 @@
 (let ((ctrlc (format nil "~A" (convert 3 <character>))))
  (block main
    (while t
-      (case (expect* 'timeout 10 "xxx" "yyy")
-        ((0)
+      (expect
+        ("xxx"
         (send ctrlc)
         (sendln "exit")
         (return-from main nil)
         )
-        ((1)
+        (("yyy" "zzz")
         (send ctrlc)
         (sendln "rem")
         )
-        ((-1)
+        (10 ; timeout second
         (send ctrlc)
         (sendln "exit")
         (return-from main nil)