projects
/
rrq
/
newlisp-ftw.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4112d84
)
increase to 10000 at a time
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Sun, 9 Jan 2022 00:42:04 +0000
(11:42 +1100)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Sun, 9 Jan 2022 00:42:04 +0000
(11:42 +1100)
autorecommended.lsp
patch
|
blob
|
history
diff --git
a/autorecommended.lsp
b/autorecommended.lsp
index 43252cbdbb7760281f54d6a3559012d7ff44bbea..2dd4945773def488705ab01b117ebce291454a2a 100755
(executable)
--- 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))))
(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 1000
0
))
(write 2 ".")
(dolist (PPV (dpkg-exec (format PROVFMT (join PL " "))))
(let ((P (PPV 0)))
(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)
(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 1000
0
))
(write 2 ".")
(dolist (RR (dpkg-exec (format RECFMT (join PL " "))))
(let ((P (RR 0)))
(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)
(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 1000
0
))
(write 2 ".")
(dolist (RR (exec (format DEPFMT (join PL " "))))
(when (regex "([^ ]+) (.*)" RR)
(write 2 ".")
(dolist (RR (exec (format DEPFMT (join PL " "))))
(when (regex "([^ ]+) (.*)" RR)