Hi list,
I'm trying to redefine the function make-hash-table defined in
$CMUCLSOURCE/src/hash-new.lisp (cmucl 19e) because i want custom test
and hash functions. Redefining worked using cmucl 18e, but now I end up
in another debugger:
<snip>
A control stack overflow has occurred: the program has entered the yellow
control stack guard zone. Please note that you will be returned to the
Top-Level if you enter the red control stack guard zone while debugging.
Fatal control stack overflow. You have entered the red control stack guard
zone while debugging. Returning to Top-Level.
[Doing purification: GC invariant lost! File "../../src/lisp/purify.c",
line 461
LDB monitor
ldb>
<snip>
I know that redefining is very dangerous, but note that even if I
'redefine' make-hash-table with the _same_ sourcecode, the stackoverflow
occurs. Any clues? My code:
(in-package :lisp)
(defun make-hash-table (&key (test 'eql) (hash-function 'eql-hash) (size
65) (rehash-size 1.5)
(rehash-threshold 1) (weak-p nil))
<snip>
)
thanks,
cees-bart breunesse
phd student @ university of nijmegen
