README: wrote about (wait PID)

README.md

@@ -17,14 +17,16 @@ Lispect
     (progn
       (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
       (return-from main nil)))
-  (defglobal account (car args))
+
-  (defglobal password (cadr args))
+  (let ((account (car args))
+        (password (cadr args))
+        (sshpid nil))
 
     (with-handler
       (lambda (c)
         (format (error-output) "ssh is not found~%")
         (return-from main nil))
-    (spawn "ssh" account))
+      (setq sshpid (spawn "ssh" account)))
 
     (expect*
       ("[fingerprint])?"
@@ -47,7 +49,10 @@ Lispect
       ("$ "))
     (sendln "echo YOU CAN CALL SOME COMMAND HERE")
     (expect "$ ")
-  (sendln "exit"))
+    (sendln "exit")
+    (wait sshpid)
+    )
+  )
 ```
 
 Install
@@ -92,7 +97,9 @@ Parameters enclosed in curly braces {...} are optional and can be omitted.
     - When STRING-n is found on the terminal, COMMANDS-n will be executed
     - After SEC seconds have elapsed, COMMANDS-FOR-TIMEOUT will be executed
 - `(spawn "COMMANDNAME" "ARG-1" ...)`
-    - Start the executable file
+    - Start the executable file and it returns Process-ID
+- `(wait PID)`
+    - Wait the process specified with PID
 - `(getenv "NAME")`
     - Get the value of the environment variable NAME
 - `(setenv "NAME" "VALUE")`