6 lines
165 B
Text
6 lines
165 B
Text
|
(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!"))
|