/[gcl]/gcl/pcl/gcl_pcl_env.lisp
ViewVC logotype

Diff of /gcl/pcl/gcl_pcl_env.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Sat May 7 02:52:30 2005 UTC revision 1.3 by camm, Tue Aug 9 05:21:37 2005 UTC
# Line 201  Line 201 
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)))))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26