From 6777e092240cae3a79bb0d58f7e6e3dd40028ba4 Mon Sep 17 00:00:00 2001
From: HAYAMA Kaoru <3752189+hymkor@users.noreply.github.com>
Date: Sun, 17 Aug 2025 17:23:07 +0900
Subject: [PATCH] README.md: reflect the contents of example.lsp

---
 README.md | 78 ++++++++++++++++++++++++++++---------------------------
 1 file changed, 40 insertions(+), 38 deletions(-)

diff --git a/README.md b/README.md
index 022b6ee..0e46fd0 100644
--- a/README.md
+++ b/README.md
@@ -20,49 +20,51 @@ $ `lispect example.lsp {SSH-OPTIONS} USERNAME@DOMAIN PASSWORD`
 `lispect ./example.lsp -p 2222 username@127.0.0.1 yourpassword`
 
 ```example.lsp
-(block main
-  (if (< (length *argv*) 2)
-    (progn
-      (format (error-output) "Usage: ~A ~A {SSH-OPTIONS} USERNAME@DOMAIN PASSWORD~%" *executable-name* *program-name*)
-      (return-from main nil)))
+(if (< (length *argv*) 2)
+  (progn
+    (format (error-output) "Usage: ~A ~A {SSH-OPTIONS} USERNAME@DOMAIN PASSWORD~%" *executable-name* *program-name*)
+    (quit 1)))
 
-  (let* ((ssh-param (subseq *argv* 0 (- (length *argv*) 1)))
-         (password (elt *argv* (- (length *argv*) 1)))
-         (sshpid nil))
+(let* ((ssh-param (subseq *argv* 0 (- (length *argv*) 1)))
+       (password (elt *argv* (- (length *argv*) 1)))
+       (sshpid nil))
 
-    (with-handler
-      (lambda (c)
-        (format (error-output) "ssh is not found~%")
-        (return-from main nil))
-      (setq sshpid (apply #'spawn "ssh" ssh-param)))
+  (with-handler
+    (lambda (c)
+      (format (error-output) "ssh is not found~%")
+      (quit 2))
+    (setq sshpid (apply #'spawn "ssh" ssh-param)))
 
-    (expect*
-      ("[fingerprint])?"
-       (sendln "yes")
-       (expect "password:")
-       (sendln password))
-      ("password:"
-       (sendln password))
-      (("Connection refused"
-        "Could not resolve hostname")
-       (return-from main nil))
-      (30
-       (format (error-output) "TIME OUT~%")
-       (return-from main nil)))
+  (expect*
+    ("[fingerprint])?"
+     (sendln "yes")
+     (expect "password:")
+     (sendln password))
 
-    (expect*
-      ("Permission denied"
-       (expect "password:")
-       (send #\U3)
-       (wait sshpid)
-       (return-from main nil)
-       )
-      ("$ "))
-    (sendln "echo YOU CAN CALL SOME COMMAND HERE")
-    (expect "$ ")
-    (sendln "exit")
-    (wait sshpid)
+    ("password:"
+     (sendln password))
+
+    (("Connection refused"
+      "Could not resolve hostname")
+     (quit 3))
+
+    (30
+     (format (error-output) "TIME OUT~%")
+     (quit 4)))
+
+  (expect*
+    ("Permission denied"
+     (expect "password:")
+     (send #\U3)
+     (wait sshpid)
+     (quit 5))
+
+    ("$ ")
     )
+  (sendln "echo YOU CAN CALL SOME COMMAND HERE")
+  (expect "$ ")
+  (sendln "exit")
+  (wait sshpid)
   )
 ```