From 6ee1c6bada019d1fccdbe9706265a0beea1f5f48 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sun, 9 Jan 2022 11:42:04 +1100 Subject: [PATCH 1/1] increase to 10000 at a time --- autorecommended.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.39.2