> (defun make-hash-table (&key (test 'eql) (hash-function 'eql-hash) (size 
> 65) (rehash-size 1.5)
>                   (rehash-threshold 1) (weak-p nil))
>   (common-lisp:make-hash-table :test test
>                                :size size
>                                :rehash-size rehash-size
>                                :rehash-threshold rehash-treshhold
>                                :weak-p weak-p))
...
> which results in the same stack overflow.

Maybe FWRAPPERS:DEFINE-FWRAPPER will help?

Best,

-cph


Reply via email to