Re: hash-table

[Andreas Schwab]

"Pach Roman (GS/EEP3) *" <Roman.Pach@de.bosch.com> writes:

|> Hello,
|> I'm just testing the emacs hash implementation (GNU Emacs 21.1.1
|> (i386-mingw-nt4.0.1381)).
|> The following piece of code does not function correctly:
|> 
|> (progn 
|>   (setq dump-buffer (get-buffer "*scratch*"))
|> 
|>   (defun print-key-value (key value)
|>      (princ (format "(key,val) = ('%s' '%s')\n" key value) dump-buffer)
|>      )
|> 
|>   (defun case-fold-string= (a b)
|>      (compare-strings a nil nil b nil nil t))

Your compare function is broken, it always returns non-nil, so that all
hash keys are considered equal.

Andreas.

-- 
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE GmbH, Deutschherrnstr. 15-19, D-90429 Nürnberg
Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."