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

README: update quoted example.lsp

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2024-12-05 23:41:31 +09:00
parent 168aa76b2a
commit 8f1d32276a
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
README.md
+7 -4
View File
@@ -13,13 +13,13 @@ Lispect
```example.lsp ```example.lsp
(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
@@ -44,6 +44,9 @@ Lispect
(expect* (expect*
("Permission denied" ("Permission denied"
(expect "password:")
(send #\U3)
(wait sshpid)
(return-from main nil) (return-from main nil)
) )
("$ ")) ("$ "))