main-example.lisp - 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
---
main-example.lisp (511B)
---
1 (in-package #:cffi-example)
2
3 (defcfun "puts" :int
4 "Put a string to standard output, return non-negative length output, or EOF"
5 (string :string))
6
7 (defun check-groveller ()
8 (assert (equal (list +a0+ +a1+ +a2+ +a3+ +a4+) '(2 4 8 16 32)))
9 (assert (equal (bn 1) 32)))
10
11 (defun entry-point ()
12 (when uiop:*command-line-arguments*
13 (uiop:format! t "Arguments: ~A~%" (uiop:escape-command uiop:*command-line-arguments*)))
14 (puts "hello, world!")
15 (check-groveller)
16 (uiop:finish-outputs)
17 (uiop:quit 0))