/[cmucl]/src/code/room.lisp
ViewVC logotype

Diff of /src/code/room.lisp

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

revision 1.37.10.3 by rtoy, Tue Mar 2 00:39:17 2010 UTC revision 1.37.10.4 by rtoy, Tue Mar 2 13:45:54 2010 UTC
# Line 509  Line 509 
509                    (incf total-bytes (first total))                    (incf total-bytes (first total))
510                    (incf total-objects (second total))                    (incf total-objects (second total))
511                    (spaces (cons (car space-total) (first total)))))                    (spaces (cons (car space-total) (first total)))))
512                (format t _"~%~A:~%    ~:D bytes, ~:D object~:P"                (format t (intl:ngettext "~%~A:~%    ~:D bytes, ~:D object"
513                                           "~%~A:~%    ~:D bytes, ~:D objects"
514                                           total-objects)
515                        name total-bytes total-objects)                        name total-bytes total-objects)
516                (dolist (space (spaces))                (dolist (space (spaces))
517                  (format t ", ~D% ~(~A~)"                  (format t ", ~D% ~(~A~)"
# Line 746  Line 748 
748                  (objects (cadr what)))                  (objects (cadr what)))
749              (incf printed-bytes bytes)              (incf printed-bytes bytes)
750              (incf printed-objects objects)              (incf printed-objects objects)
751              (format t _"  ~32A: ~7:D bytes, ~5D object~:P.~%" (car what)              (format t (intl:ngettext "  ~32A: ~7:D bytes, ~5D object.~%"
752                                         "  ~32A: ~7:D bytes, ~5D objects.~%"
753                                         objects)
754                        (car what)
755                      bytes objects)))                      bytes objects)))
756    
757          (let ((residual-objects (- total-objects printed-objects))          (let ((residual-objects (- total-objects printed-objects))
758                (residual-bytes (- total-bytes printed-bytes)))                (residual-bytes (- total-bytes printed-bytes)))
759            (unless (zerop residual-objects)            (unless (zerop residual-objects)
760              (format t _"  Other types: ~:D bytes, ~D: object~:P.~%"              (format t (intl:ngettext "  Other types: ~:D bytes, ~D: object~:P.~%"
761                                         "  Other types: ~:D bytes, ~D: object~:P.~%"
762                                         residual-objects)
763                      residual-bytes residual-objects))))                      residual-bytes residual-objects))))
764    
765        (format t _"  ~:(~A~) instance total: ~:D bytes, ~:D object~:P.~%"        (format t (intl:ngettext "  ~:(~A~) instance total: ~:D bytes, ~:D object.~%"
766                                   "  ~:(~A~) instance total: ~:D bytes, ~:D objects.~%"
767                                   total-objects)
768                space total-bytes total-objects)))                space total-bytes total-objects)))
769    
770    (values))    (values))
# Line 1004  Line 1013 
1013    
1014        (loop for (pkg (pkg-count . pkg-size) . files) in        (loop for (pkg (pkg-count . pkg-size) . files) in
1015              (sort res #'> :key #'(lambda (x) (cdr (second x)))) do              (sort res #'> :key #'(lambda (x) (cdr (second x)))) do
1016          (format t _"~%Package ~A: ~32T~9:D bytes, ~9:D object~:P.~%"          (format t (intl:ngettext "~%Package ~A: ~32T~9:D bytes, ~9:D object.~%"
1017                                     "~%Package ~A: ~32T~9:D bytes, ~9:D objects.~%"
1018                                     pkg-count)
1019                  pkg pkg-size pkg-count)                  pkg pkg-size pkg-count)
1020          (when (eq how :file)          (when (eq how :file)
1021            (loop for (file (file-count . file-size)) in            (loop for (file (file-count . file-size)) in
1022                  (sort files #'> :key #'(lambda (x) (cdr (second x)))) do                  (sort files #'> :key #'(lambda (x) (cdr (second x)))) do
1023              (format t _"~30@A: ~9:D bytes, ~9:D object~:P.~%"              (format t (intl:ngettext "~30@A: ~9:D bytes, ~9:D object.~%"
1024                                         "~30@A: ~9:D bytes, ~9:D objects.~%"
1025                                         file-count)
1026                      (file-namestring file) file-size file-count))))))                      (file-namestring file) file-size file-count))))))
1027    
1028    (values))    (values))

Legend:
Removed from v.1.37.10.3  
changed lines
  Added in v.1.37.10.4

  ViewVC Help
Powered by ViewVC 1.1.5