Clip maxint to 2^31-1

src/utilities.el

@@ -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