fix a crash with ecl when started without argument - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML 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
HTML 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"