Commits

Anonymous committed a001128

prime number demo: set a limit apart from MOST-POSITIVE-FIXNUM (patch by Johan Ur Riise <johan@riise-data.no>

Comments (0)

Files changed (2)

+* port to ccl, ecl
+
 * introduce global state that doesn't get reset
 
 * move txn-state to serialize-xxx, local-state
 	       (candidate (if numbers-list (1+ (first numbers-list)) 0))
 	       (largest 0))
 	  (loop
-	   (when (> candidate most-positive-fixnum)
+	   (when (> candidate (min most-positive-fixnum 16777215))
 	     (return))
 	   (when (prime-p candidate)
 	     (execute system (make-transaction 'tx-add-number candidate))