iFix a comparison issue - 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 c5ad93bd84b0e56df44e063c6871c587e98ef9c0 /scm/clic/commit/c5ad93bd84b0e56df44e063c6871c587e98ef9c0.gph bitreich.org 70 1parent 7177f07c0261e877fcc1d027b7c9d0b5581142cc /scm/clic/commit/7177f07c0261e877fcc1d027b7c9d0b5581142cc.gph bitreich.org 70 hAuthor: Solene Rapenne URL:mailto:solene@perso.pw bitreich.org 70 iDate: Wed, 3 Jan 2018 14:39:48 +0100 Err bitreich.org 70 i Err bitreich.org 70 iFix a comparison issue 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@@ -376,7 +376,7 @@ Err bitreich.org 70 i Err bitreich.org 70 i (defun parse-url(url) Err bitreich.org 70 i "parse a gopher url and return a location" Err bitreich.org 70 i- (let ((url (if (= 0 (search "gopher://" url)) Err bitreich.org 70 i+ (let ((url (if (search "gopher://" url) Err bitreich.org 70 i (subseq url 9) Err bitreich.org 70 i url))) Err bitreich.org 70 i Err bitreich.org 70 .