fix a crash with ecl when started without argument - clic - Clic is an command line interactive client for gopher written in Common LISP
(HTM) git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) Tags
(DIR) README
(DIR) LICENSE
---
(DIR) commit fe200dd7e8dd1921e985d2aa84dab132ef6bc392
(DIR) parent 59a4eb1d2865dd219de86ee758e27034e7ed1a85
(HTM) Author: Solene Rapenne <solene@perso.pw>
Date: Mon, 6 Nov 2017 09:19:53 +0000
fix a crash with ecl when started without argument
Diffstat:
M clic.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
---
(DIR) diff --git a/clic.lisp b/clic.lisp
@@ -279,7 +279,7 @@
#+sbcl
(cadr *posix-argv*)
#+ecl
- (car (last (si::command-args))))
+ (car (last (cdr (si::command-args)))))
(defun main()
"main entry of clic binary"