rename start function to main - 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 6c1e0b022a41bc379bf6c03d685114a0bdc87d73
DIR parent 3860c8eb91d79a90e8abe088e6531984f43c47d5
HTML 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)