/[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.11 by ram, Fri Aug 30 17:11:20 1991 UTC revision 1.12 by ram, Sun Dec 22 15:27:51 1991 UTC
# Line 696  Line 696 
696                 info)                 info)
697        (loop for ((count . size) name) in (sort (res) #'> :key #'cdar) do        (loop for ((count . size) name) in (sort (res) #'> :key #'cdar) do
698          (format t "~20@A: ~:D bytes, ~:D object~:P.~%"          (format t "~20@A: ~:D bytes, ~:D object~:P.~%"
699                  (if (pathnamep name)                  (subseq name (max (- (length name) 20) 0))
                     (let ((name (namestring name)))  
                       (subseq name (max (- (length name) 20) 0)))  
                     name)  
700                  size count))))                  size count))))
701    (values))    (values))
702    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5