RosettaCodeData/Task/Call-a-foreign-language-fun.../NewLISP/call-a-foreign-language-fun...

8 lines
231 B
Common Lisp

; simple FFI interface on Mac OSX
(import "libc.dylib" "strdup")
(println (get-string (strdup "hello world")))
; or extended FFI interface on Mac OSX
(import "libc.dylib" "strdup" "char*" "char*")
(println (strdup "hello world"))