With no arguments makes a hash table that considers two keys equivalent if they’re the same object according to **EQL**. This is a good default unless you want to use strings as keys, since two strings with the same contents aren’t necessarily **EQL**. In that case you’ll want a so-called **EQUAL** hash table, which you can get by passing the symbol **EQUAL** as the :test keyword argument to **MAKE-HASH-TABLE**. Two other possible values for the :test argument are the symbols **EQ** and **EQUALP**. These are, of course, the names of the standard object comparison functions, which I discussed in Chapter 4. However, unlike the :test argument passed to sequence functions, **MAKE-HASH-TABLE**‘s can’t be used to specify an arbitrary function—only the values **EQ**, **EQL**, **EQUAL**, and **EQUALP**. This is because hash tables actually need two functions, an equivalence function and a hash function that computes a numerical hash code from the key in a way compatible with how the equivalence function will ultimately compare two keys. However, although the language standard provides only for hash tables that use the standard equivalence functions, most implementations provide some mechanism for defining custom hash tables.

Since **GETHASH** returns **NIL** if the key isn’t present in the table, there’s no way to tell from the return value the difference between a key not being in a hash table at all and being in the table with the value **NIL**. **GETHASH** solves this problem with a feature I haven’t discussed yet—multiple return values. **GETHASH** actually returns two values; the primary value is the value stored under the given key or . The secondary value is a boolean indicating whether the key is present in the hash table. Because of the way multiple values work, the extra return value is silently discarded unless the caller explicitly handles it with a form that can “see” multiple values.

The following function shows how you might use **MULTIPLE-VALUE-BIND**; the variables it binds are value and present:

(defun show-value (key hash-table)
  (multiple-value-bind (value present) (gethash key hash-table)
    (if present
      (format nil "Value ~a because key not found." value))))
 
(setf (gethash 'bar *h*) nil) ; provide an explicit value of NIL
(show-value 'foo *h*) ==> "Value QUUX actually present."
(show-value 'bar *h*) ==> "Value NIL actually present."
(show-value 'baz *h*) ==> "Value NIL because key not found."