Revert code to remove gopher:// in argv - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) 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
 (HTM) 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