rename start function to main - 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 6c1e0b022a41bc379bf6c03d685114a0bdc87d73
 (DIR) parent 3860c8eb91d79a90e8abe088e6531984f43c47d5
 (HTM) Author: Solene Rapenne <solene@perso.pw>
       Date:   Sun,  5 Nov 2017 20:09:42 +0000
       
       rename start function to main
       
       Diffstat:
         M clic.lisp                           |       4 ++--
         M make-binary.lisp                    |       4 ++--
       
       2 files changed, 4 insertions(+), 4 deletions(-)
       ---
 (DIR) diff --git a/clic.lisp b/clic.lisp
       @@ -1,4 +1,3 @@
       -
        ;; let's hide the loading
        (let ((*standard-output* (make-broadcast-stream)))
          #+sbcl
       @@ -258,7 +257,8 @@
          #+ecl
          (car (last (si::command-args))))
          
       -(defun start()
       +(defun main()
       +  "main entry of clic binary"
          (let ((destination 
                 (let ((argv (get-argv)))
                   (if argv
 (DIR) diff --git a/make-binary.lisp b/make-binary.lisp
       @@ -8,7 +8,7 @@
        #+ecl
        (progn
          (compile-file "clic.lisp" :system-p t)
       -  (c:build-program "clic" :epilogue-code '(progn (start)) :lisp-files '("clic.o")))
       +  (c:build-program "clic" :epilogue-code '(progn (main)) :lisp-files '("clic.o")))
          ;;(c:build-program "clic" :lisp-files '("clic.o")))
        #+sbcl
        (progn
       @@ -18,7 +18,7 @@
          (sb-ext:save-lisp-and-die "clic"
                                    :executable t
                                    :compression 5
       -                            :toplevel 'start))
       +                            :toplevel 'main))
        
        (format t "INFO => Compilation done (or at least it should)~%")
        (quit)