(GETHASH X Y) ==> (CDR (GETHASH X Y))

["George J. Carrette" <GJC@MIT-MC.ARPA>]

It is ridiculous to assume that users program via QUERY-REPLACE in EMACS,
or through the "looks productive" CONTROL-K CONTROL-Y method.
More likely it is the case that:

(DEFUN DATABASE-LOOKUP (...)
   (GETHASH ...) ... (PUTHASH ....))

For one thing the user might consider GETHASH to be a silly name.