With-hash-table-locked didn't exist yet in LispWorks 5.0, so I added a regular lock for that version.