(define (init objptr dll-path dll-filename config-flag)
  (let-location ((errorcode int)
                 (errorcode_extended int))
    ((foreign-lambda bool CPUIDSDK_fp_Init c-pointer c-string c-string int (c-pointer int) (c-pointer int))
     objptr dll-path dll-filename config-flag (location errorcode) (location errorcode_extended))
    (values errorcode errorcode_extended)))