From 583cbf379bd9dcee86c3fcb82f71adbec5e476d1 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 2 Jan 1992 22:45:25 +0000 Subject: [PATCH] Tweaked formatting in code-breakdown. --- code/room.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/room.lisp b/code/room.lisp index 29751cd22..f5a6896ec 100644 --- a/code/room.lisp +++ b/code/room.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/room.lisp,v 1.12 1991/12/22 15:27:51 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/room.lisp,v 1.13 1992/01/02 22:45:25 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -695,8 +695,8 @@ (res (list v k))) info) (loop for ((count . size) name) in (sort (res) #'> :key #'cdar) do - (format t "~20@A: ~:D bytes, ~:D object~:P.~%" - (subseq name (max (- (length name) 20) 0)) + (format t "~40@A: ~:D bytes, ~:D object~:P.~%" + (subseq name (max (- (length name) 40) 0)) size count)))) (values)) -- GitLab