MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-08-27 20:36:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

example.lsp: rename system-variables (ARGV, PROGRAM_NAME,...)

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2024-12-05 12:49:07 +09:00
parent f8b93fb83a
commit 0652d8229a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
example.lsp
+4 -4
View File
@@ -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