Revert code to remove gopher:// in argv - 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 7177f07c0261e877fcc1d027b7c9d0b5581142cc DIR parent d07922a2554fc78ba5efe7e9818e4cb7fbfd6938 HTML Author: Solene Rapenne <solene@perso.pw> Date: Wed, 3 Jan 2018 10:37:08 +0100 Revert code to remove gopher:// in argv Diffstat: M clic.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) --- DIR diff --git a/clic.lisp b/clic.lisp @@ -376,7 +376,9 @@ (defun parse-url(url) "parse a gopher url and return a location" - (let ((url (string-left-trim "gopher://" url))) + (let ((url (if (= 0 (search "gopher://" url)) + (subseq url 9) + url))) ;; splitting with / to get host:port and uri ;; splitting host and port to get them