From 4be3d658505ba0aae981ca7321fb7ec7f6e07fe0 Mon Sep 17 00:00:00 2001
From: HAYAMA Kaoru <3752189+hymkor@users.noreply.github.com>
Date: Sun, 17 Aug 2025 16:45:58 +0900
Subject: [PATCH] example.lsp: Replace `(block)` and `(return-from)` to
 `(quit)`

---
 example.lsp | 78 +++++++++++++++++++++++++++--------------------------
 1 file changed, 40 insertions(+), 38 deletions(-)

diff --git a/example.lsp b/example.lsp
index 4bebdf1..539e893 100644
--- a/example.lsp
+++ b/example.lsp
@@ -1,44 +1,46 @@
-(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)
   )