Waldek Hebisch <[EMAIL PROTECTED]> writes: > Franz Lehner wrote: > > > > On Wed, Aug 27, 2008 at 08:37:00PM +0200, Waldek Hebisch wrote: > > > > > (defmacro |SIntMax| () `(the |SInt| most-positive-fixnum)) > > > > > > in foam_l.lisp -- it seems that your patch does not include change > > > to this line. > > which would be > > (defmacro |SIntMin| () #.(-(expt 2 63))) > > (defmacro |SIntMax| () #.(1- (expt 2 63))) > > ? > > sorry, I don't speak lisp. > > > > (defmacro |SIntMax| () '(the |SInt| (1- (expt 2 31)))) > > This, together with the definition of SInt that Martin gave: > > (deftype |SInt| () '(integer #.(- (expt 2 31)) #.(1- (expt 2 31))))
Ah, now I understand... The error did not occur because Aldor adapts the hash according to number of available bits, but rather because SIntMax became 2^63-1, which is bigger than what SInt can hold... Franz, could you revert to (deftype |SInt| () '(integer #.(- (expt 2 31)) #.(1- (expt 2 31)))): (defmacro |SIntMax| () '(the |SInt| (1- (expt 2 31)))) and try again? Martin --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "FriCAS - computer algebra system" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [EMAIL PROTECTED] For more options, visit this group at http://groups.google.com/group/fricas-devel?hl=en -~----------~----~----~----~------~----~------~--~---
