* (inspect #'put-db)

The object is a CLOSURE named PUT-DB.
0. Lambda-list: (KEY VAL)
1. Ftype: (FUNCTION (T T) (VALUES T &OPTIONAL))
2. Closed over values: (#<HASH-TABLE :TEST EQUAL :COUNT 2 {1001F6FB33}>)
> 
* (inspect #'peek-db)

The object is a CLOSURE named PEEK-DB.
0. Lambda-list: NIL
1. Ftype: (FUNCTION NIL (VALUES NULL &OPTIONAL))
2. Closed over values: (#<HASH-TABLE :TEST EQUAL :COUNT 0 {1001F61B73}>)