From 945d8903b9bfcc4ccb5292f328167a05757be540 Mon Sep 17 00:00:00 2001 From: HAYAMA_Kaoru Date: Sun, 4 May 2025 03:18:42 +0900 Subject: [PATCH] example.lsp: use *argv*, *program-name*, etc --- example.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/example.lsp b/example.lsp index 6799dff..a9f8871 100644 --- a/example.lsp +++ b/example.lsp @@ -1,11 +1,11 @@ (catch 'fail (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*) (throw 'fail nil))) - (let ((account (car ARGV)) - (password (cadr ARGV)) + (let ((account (car *argv*)) + (password (cadr *argv*)) (sshpid nil)) (with-handler