i[FIX] condition was crashing if argument wasn't file:// - clic - Clic is an command line interactive client for gopher written in Common LISP Err bitreich.org 70 hgit clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/ URL:git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/ bitreich.org 70 1Log /scm/clic/log.gph bitreich.org 70 1Files /scm/clic/files.gph bitreich.org 70 1Refs /scm/clic/refs.gph bitreich.org 70 1Tags /scm/clic/tag bitreich.org 70 1README /scm/clic/file/README.md.gph bitreich.org 70 1LICENSE /scm/clic/file/LICENSE.gph bitreich.org 70 i--- Err bitreich.org 70 1commit eaf1d765d6db7ab9cd6d5214953d07a277497594 /scm/clic/commit/eaf1d765d6db7ab9cd6d5214953d07a277497594.gph bitreich.org 70 1parent 3028c011e0cdfa70a7adbfaa120f04bce79e563f /scm/clic/commit/3028c011e0cdfa70a7adbfaa120f04bce79e563f.gph bitreich.org 70 hAuthor: Solene Rapenne URL:mailto:solene@perso.pw bitreich.org 70 iDate: Thu, 1 Feb 2018 21:40:44 +0100 Err bitreich.org 70 i Err bitreich.org 70 i[FIX] condition was crashing if argument wasn't file:// Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M clic.lisp | 2 +- Err bitreich.org 70 i Err bitreich.org 70 i1 file changed, 1 insertion(+), 1 deletion(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/clic.lisp b/clic.lisp /scm/clic/file/clic.lisp.gph bitreich.org 70 i@@ -677,7 +677,7 @@ Err bitreich.org 70 i ;; if not empty we use it or we will use a default url Err bitreich.org 70 i (if argv Err bitreich.org 70 i ;; is it a file ? Err bitreich.org 70 i- (if (= 0 (search "file://" argv)) Err bitreich.org 70 i+ (if (= 0 (or (search "file://" argv) 1)) Err bitreich.org 70 i (progn Err bitreich.org 70 i (load-file-menu (subseq argv 7)) Err bitreich.org 70 i (make-location :host 'local-file Err bitreich.org 70 .