1 (in-package #:cffi-example
)
4 "Put a string to standard output, return non-negative length output, or EOF"
7 (defun check-groveller ()
8 (assert (equal (list +a0
+ +a1
+ +a2
+ +a3
+ +a4
+) '(2 4 8 16 32)))
9 (assert (equal (bn 1) 32)))
12 (when uiop
:*command-line-arguments
*
13 (uiop:format
! t
"Arguments: ~A~%" (uiop:escape-command uiop
:*command-line-arguments
*)))
14 (puts "hello, world!")