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

example.lsp: use *argv*, *program-name*, etc

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2025-05-04 03:43:30 +09:00
parent ebdc6d7c20
commit 945d8903b9
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
example.lsp
+3 -3
View File
@@ -1,11 +1,11 @@
(catch 'fail (catch 'fail
(if (< (length ARGV) 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*)
(throw 'fail nil))) (throw 'fail nil)))
(let ((account (car ARGV)) (let ((account (car *argv*))
(password (cadr ARGV)) (password (cadr *argv*))
(sshpid nil)) (sshpid nil))
(with-handler (with-handler