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))