gistfile1.cl

(defmethod dbm-put ((db kc-dbm) key value &key mode (overwrite-if-exists T))
  (if overwrite-if-exists
      (kcdbset (ptr-of db)
	       (convert-to-foreign key :string) (convert-to-foreign (length key) :unsigned-long)
	       (convert-to-foreign value :string) (convert-to-foreign (length value) :unsigned-long))
      (kcdbadd (ptr-of db)
	       (convert-to-foreign key :string) (convert-to-foreign (length key) :unsigned-long)
	       (convert-to-foreign value :string) (convert-to-foreign (length value) :unsigned-long)))