201 |
(when used |
(when used |
202 |
(format stream "It uses the packages ~{~S~^, ~}.~%" |
(format stream "It uses the packages ~{~S~^, ~}.~%" |
203 |
(mapcar #'package-name used)))) |
(mapcar #'package-name used)))) |
204 |
(let ((users (package-use-list object))) |
(let ((users (package-used-by-list object))) |
205 |
(when users |
(when users |
206 |
(format stream "It is used by the packages ~{~S~^, ~}.~%" |
(format stream "It is used by the packages ~{~S~^, ~}.~%" |
207 |
(mapcar #'package-name users))))) |
(mapcar #'package-name users))))) |