commit eaf1d765d6db7ab9cd6d5214953d07a277497594 Solene Rapenne <solene@perso.pw> 2018-02-01 21:40:44 +0100 [FIX] condition was crashing if argument wasn't file://
clic.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/clic.lisp b/clic.lisp index 61cd8aa..530c1f4 100644 --- a/clic.lisp +++ b/clic.lisp @@ -677,7 +677,7 @@ ;; if not empty we use it or we will use a default url (if argv ;; is it a file ? - (if (= 0 (search "file://" argv)) + (if (= 0 (or (search "file://" argv) 1)) (progn (load-file-menu (subseq argv 7)) (make-location :host 'local-file