example.lsp: ARGV to *argv*

This commit is contained in:
HAYAMA Kaoru
2025-08-12 02:39:59 +09:00
parent 4adfb750eb
commit 0780095a3f
+1 -1
View File
@@ -1,5 +1,5 @@
(catch 'fail
(if (< (length ARGV) 2)
(if (< (length *argv*) 2)
(progn
(format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" *executable-name* *program-name*)
(throw 'fail nil)))