From 0652d8229ad78dc58e9c2ddf068ad00e24abdf21 Mon Sep 17 00:00:00 2001
From: HAYAMA_Kaoru <iyahaya@nifty.com>
Date: Thu, 5 Dec 2024 12:48:43 +0900
Subject: [PATCH] example.lsp: rename system-variables (ARGV, PROGRAM_NAME,...)

---
 example.lsp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/example.lsp b/example.lsp
index b84293e..7bae635 100644
--- a/example.lsp
+++ b/example.lsp
@@ -1,11 +1,11 @@
 (block main
-  (if (< (length args) 2)
+  (if (< (length ARGV) 2)
     (progn
-      (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
+      (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" EXECUTABLE-NAME PROGRAM-NAME)
       (return-from main nil)))
 
-  (let ((account (car args))
-        (password (cadr args))
+  (let ((account (car ARGV))
+        (password (cadr ARGV))
         (sshpid nil))
 
     (with-handler