Mercurial > hg > xemacs-beta
diff tests/automated/lisp-reader-tests.el @ 5605:cc7f8a0e569a
Accept bignums unambiguously in the syntax for object labels, lread.c.
src/ChangeLog addition:
2011-12-03 Aidan Kehoe <kehoea@parhasard.net>
* lread.c (read1):
Don't wrap when reading expressions that use bignums as object
labels, that can lead to ambiguity and it's not actually that hard
to use parse_integer() to avoid it.
tests/ChangeLog addition:
2011-12-03 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-reader-tests.el:
Check that integer object labels (using the #N=... syntax) treat
bignums as such, rather than as fixnums that have wrapped.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 03 Dec 2011 15:13:55 +0000 |
parents | 58b38d5b32d0 |
children | ee27ca517e90 |
line wrap: on
line diff
--- a/tests/automated/lisp-reader-tests.el Tue Nov 29 16:19:53 2011 +0100 +++ b/tests/automated/lisp-reader-tests.el Sat Dec 03 15:13:55 2011 +0000 @@ -150,3 +150,8 @@ (car (get-range-table #x1001 deserialized-range-table))) "checking the lisp reader handles deserialization identity, mixed")) +(when (featurep 'bignum) + (Assert (null (list-length (read (format "#%d=(1 #1=(5) 3 4 . #%d#)" + (+ most-positive-fixnum 2) + (+ most-positive-fixnum 2))))) + "checking bignum object labels don't wrap on reading"))