Commit 0e237fbd authored by David Byers's avatar David Byers
Browse files

Clip maxint to 2^31-1

parent 93e66d69
......@@ -139,10 +139,13 @@
(defun lyskom-maxint ()
(let ((n 1) (l nil))
(while (> n 0)
(let ((n 1)
(l nil)
(i 31))
(while (and (> n 0) (> i 0))
(setq l (cons n l))
(setq n (* 2 n)))
(setq n (* 2 n))
(setq i (1- i)))
(apply '+ l)))
;; Set lyskom-maxint correctly
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment