> (ql:quickload :com.informatimago.languages.linc)
To load "com.informatimago.languages.linc":
  Load 1 ASDF system:
    com.informatimago.languages.linc
; Loading "com.informatimago.languages.linc"

> (with-open-file (src "/tmp/t.sexpc" :direction :output :if-does-not-exist :create :if-exists :supersede)
  (let ((*print-case* :downcase))
    (pprint '(define-function example ((x int)) int (return (* 3 x x))) src)))
(define-function example ((x int)) int (return (* 3 x x)))

> (com.informatimago.languages.linc:translate-linc-file "/tmp/t.sexpc" :print t :verbose t)

;;    int example(int x)
;;    {
;;        return 3 * x * x;
;;    }
;;
;;
#P"/private/tmp/t.c"
nil
nil
> (cd "/tmp/")
#P"/private/tmp/"
> (cc "t.c" :options '("-c"))
nil
nil
0