RosettaCodeData/Task/Call-a-foreign-language-function/PicoLisp/call-a-foreign-language-function-3.l

(prinl "Calling custom so/dll library...")
(set 'A NIL)
(set 'A (native "./duptest.so" "duptest" 'S "abc"))
(prinl "A=" A)
(when (not (= A NIL)) (prinl "Success!"))