Welcome to the CHICKEN Scheme pasting service

  (define (leveldb-open)
    (let ((leveldb* ((foreign-lambda
                       (c-pointer (struct "leveldb_t"));; The return type of the C function we're binding:
                       leveldb_open ;; The name of the C function we're binding:
                       (c-pointer (struct "leveldb_options_t")) ;; param 1
                       c-string                                 ;; param 2
                       (c-pointer (c-string)) ;; <--- this one
                       ))))
      (if leveldb*
        (set-finalizer! (make-leveldb leveldb*) leveldb-close)
        (error "The call to leveldb_open failed :("))))





for this C code: 

leveldb_t* leveldb_open(
    const leveldb_options_t* options,
    const char* name,
    char** errptr);

errptr must be null