(wrap:c-lines "extern double fred;" "int cfrog (int, int);") (wrap:c-variable "fred" :flonum (:get get-fred) (:set set-fred)) (wrap:c-function frog "cfrog" (:integer :integer) :integer) (wrap:c-lines "#define A_LONG 7" "#define A_FLONUM 3.1415" "#define A_STRING \"my string\"" "#define A_ULONG 0xFFFFFFFF") (wrap:c-constant a-long "A_LONG" :integer) (wrap:c-constant a-flonum "A_FLONUM" :flonum) (wrap:c-constant a-string "A_STRING" :string) (wrap:c-constant a-ulong "A_ULONG" :unsigned)