added usbreset.lsp

[rrq/newlisp-ftw.git] / autorecommended.lsp

diff --git a/autorecommended.lsp b/autorecommended.lsp
index 2dd4945773def488705ab01b117ebce291454a2a..ef3a595106d4d526c70aae50d1b266e25f342d20 100755 (executable)
--- a/autorecommended.lsp
+++ b/autorecommended.lsp
@@ -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)