(defmethod print-object ((h hash-table) str)
  "Change the print method for a hash."
  (format str "{hash of ~a items}" (hash-table-count h)))