example.lsp runs on Linux and Windows

example.lsp

@@ -1,23 +1,28 @@
-(spawn "cmd.exe")
+(if (equal (getenv "OS") "Windows_NT")
-(let ((ctrlc (format nil "~A" (convert 3 <character>))))
+  (spawn "cmd.exe" "/k" "set PROMPT=$$$S")
+  (spawn "bash"))
+
+(defglobal ctrlc (format nil "~A" (convert 3 <character>)))
 (block main
   (while t
     (expect*
       ("xxx"
        (send ctrlc)
+       (expect "$ ")
        (sendln "exit")
        (return-from main nil)
        )
       (("yyy" "zzz")
        (send ctrlc)
-         (sendln "rem")
+       (expect "$ ")
+       (sendln "echo test")
        )
       (10 ; timeout second
        (send ctrlc)
+       (expect "$ ")
        (sendln "exit")
        (return-from main nil)
        )
       )
     )
   )
-  )