main-example.lisp - 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 --- 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))