main-example.lisp - clic - Clic is an command line interactive client for gophe… | |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
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, o… | |
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… | |
14 (puts "hello, world!") | |
15 (check-groveller) | |
16 (uiop:finish-outputs) | |
17 (uiop:quit 0)) |