(define mydb (dbm-open "ida"))
-->mydb
(display mydb) -->#<dbm>
(newline) -->
(dbm-store mydb "anton" "1") -->#t
(dbm-store mydb "berta" "2") -->#t
(display (dbm-firstkey mydb)) -->anton
(newline) -->
(display (dbm-nextkey mydb)) -->berta
(newline) -->
(display (dbm-fetch mydb "anton")) -->1
(newline) -->
(display (dbm-fetch mydb "berta")) -->2
(newline) -->
(display (dbm-count mydb)) -->2
(newline) -->
(dbm-close mydb) -->#t
| Georg P. Loczewski 2003-07-18 |