(defmacro defcfun+ ((name fun-name) ret-type &body args) `(defcfun* (,name ,fun-name :error-fun bdb-check-error) ,(if (eq ret-type :int) :error-int ret-type) ,@args))