MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-09-05 16:47:42 -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 (block main
(if (< (length args) 2) (if (< (length ARGV) 2)
(progn (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))) (return-from main nil)))
(let ((account (car args)) (let ((account (car ARGV))
(password (cadr args)) (password (cadr ARGV))
(sshpid nil)) (sshpid nil))
(with-handler (with-handler