example.lsp: Replace (block) and (return-from) to (quit)

example.lsp

@@ -1,44 +1,46 @@
-(block main
+(if (< (length *argv*) 2)
-  (if (< (length *argv*) 2)
+  (progn
-    (progn
+    (format (error-output) "Usage: ~A ~A {SSH-OPTIONS} USERNAME@DOMAIN PASSWORD~%" *executable-name* *program-name*)
-      (format (error-output) "Usage: ~A ~A {SSH-OPTIONS} USERNAME@DOMAIN PASSWORD~%" *executable-name* *program-name*)
+    (quit 1)))
-      (return-from main nil)))
 
-  (let* ((ssh-param (subseq *argv* 0 (- (length *argv*) 1)))
+(let* ((ssh-param (subseq *argv* 0 (- (length *argv*) 1)))
-         (password (elt *argv* (- (length *argv*) 1)))
+       (password (elt *argv* (- (length *argv*) 1)))
-         (sshpid nil))
+       (sshpid nil))
 
-    (with-handler
+  (with-handler
-      (lambda (c)
+    (lambda (c)
-        (format (error-output) "ssh is not found~%")
+      (format (error-output) "ssh is not found~%")
-        (return-from main nil))
+      (quit 2))
-      (setq sshpid (apply #'spawn "ssh" ssh-param)))
+    (setq sshpid (apply #'spawn "ssh" ssh-param)))
 
-    (expect*
+  (expect*
-      ("[fingerprint])?"
+    ("[fingerprint])?"
-       (sendln "yes")
+     (sendln "yes")
-       (expect "password:")
+     (expect "password:")
-       (sendln 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*
+    ("password:"
-      ("Permission denied"
+     (sendln password))
-       (expect "password:")
+
-       (send #\U3)
+    (("Connection refused"
-       (wait sshpid)
+      "Could not resolve hostname")
-       (return-from main nil)
+     (quit 3))
-       )
+
-      ("$ "))
+    (30
-    (sendln "echo YOU CAN CALL SOME COMMAND HERE")
+     (format (error-output) "TIME OUT~%")
-    (expect "$ ")
+     (quit 4)))
-    (sendln "exit")
+
-    (wait sshpid)
+  (expect*
+    ("Permission denied"
+     (expect "password:")
+     (send #\U3)
+     (wait sshpid)
+     (quit 5))
+
+    ("$ ")
     )
+  (sendln "echo YOU CAN CALL SOME COMMAND HERE")
+  (expect "$ ")
+  (sendln "exit")
+  (wait sshpid)
   )