Function: BDB-CHECK-ERROR

Source

(defun bdb-check-error (code)
      (if (= code 0)
      t
      (error "error-code: ~A~%error-str: ~A"
	     code
	     (foreign-funcall "db_strerr" :int code :string))))