We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d8bba8f commit 3a29f46Copy full SHA for 3a29f46
test/cl-binary-store-tests.lisp
@@ -592,7 +592,8 @@
592
(define-test test-bignum
593
(is '= (expt 2 64) (restore (store nil (expt 2 64))))
594
(is '= 12345678901234567890 (restore (store nil 12345678901234567890)))
595
- (is '= -12345678901234567890 (restore (store nil -12345678901234567890))))
+ (is '= -12345678901234567890 (restore (store nil -12345678901234567890)))
596
+ (is '= (expt 2 123456) (restore (store nil (expt 2 123456)))))
597
598
(define-test test-write-into-extant-vector
599
(loop for length in '(100 #-abcl 50000)
0 commit comments