X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=autorecommended.lsp;h=ef3a595106d4d526c70aae50d1b266e25f342d20;hb=55d0655dab306081172b7c970b000c727f3d4309;hp=43252cbdbb7760281f54d6a3559012d7ff44bbea;hpb=4112d84d6cfd188daeff79d64a86e1b4d02248b8;p=rrq%2Fnewlisp-ftw.git

diff --git a/autorecommended.lsp b/autorecommended.lsp
index 43252cb..ef3a595 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)
@@ -100,6 +100,6 @@
 
 (let ((Y (difference INSTALLED (closure MANUAL))))
   (write-line 2 (format "=> %d automatic recommended packages" (length Y)))
-  (map println Y))
+  (map (fn (P) (println P " by " (join (or (REC P) '("???")) " "))) Y))
 
 (exit 0)