From: Ralph Ronnquist 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)