From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sun, 9 Jan 2022 00:42:04 +0000 (+1100)
Subject: increase to 10000 at a time
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=6ee1c6bada019d1fccdbe9706265a0beea1f5f48;p=rrq%2Fnewlisp-ftw.git

increase to 10000 at a time
---

diff --git a/autorecommended.lsp b/autorecommended.lsp
index 43252cb..2dd4945 100755
--- a/autorecommended.lsp
+++ b/autorecommended.lsp
@@ -17,7 +17,7 @@
 (setf PROVFMT "dpkg-query -W -f '${Package} ${Provides}\\n' %s")
 (define PROV:PROV nil)
 (dolist (P INSTALLED) (if (PROV P) (push P (PROV P)) (PROV P (list P))))
-(dolist (PL (explode INSTALLED 1000))
+(dolist (PL (explode INSTALLED 10000))
   (write 2 ".")
   (dolist (PPV (dpkg-exec (format PROVFMT (join PL " "))))
     (let ((P (PPV 0)))
@@ -30,7 +30,7 @@
 (write 2 "Initializing 'recommended-by' ")
 (setf RECFMT "dpkg-query -W -f '${Package} ${Recommends}' %s")
 (define REC:REC nil)
-(dolist (PL (explode INSTALLED 1000))
+(dolist (PL (explode INSTALLED 10000))
   (write 2 ".")
   (dolist (RR  (dpkg-exec (format RECFMT (join PL " "))))
     (let ((P (RR 0)))
@@ -71,7 +71,7 @@
 (write 2 "Initializing actual 'depends' ")
 (setf DEPFMT "dpkg-query -W -f '${Package} ${Pre-Depends} ${Depends}\\n' %s")
 (define DEP:DEP nil)
-(dolist (PL (explode INSTALLED 1000))
+(dolist (PL (explode INSTALLED 10000))
   (write 2 ".")
   (dolist (RR (exec (format DEPFMT (join PL " "))))
     (when (regex "([^ ]+) (.*)" RR)