From 0e237fbd2bbe0b3227d1df00e3080cdc43ed1267 Mon Sep 17 00:00:00 2001
From: David Byers <david.byers@liu.se>
Date: Sun, 20 Jun 1999 06:31:39 +0000
Subject: [PATCH] Clip maxint to 2^31-1
---
src/utilities.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/src/utilities.el b/src/utilities.el
index 374059cb..f2981faf 100644
--- a/src/utilities.el
+++ b/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
--
GitLab