From dd8f9c6c6f4d14d0c94bf1689b4624947bc629ed Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 22 Dec 1991 15:27:51 +0000 Subject: [PATCH] Fixed CODE-BREAKDOWN to format properly now that source-info-file is a string, not a pathname. --- code/room.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/code/room.lisp b/code/room.lisp index 2e1670a1a..29751cd22 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.11 1991/08/30 17:11:20 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/room.lisp,v 1.12 1991/12/22 15:27:51 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -696,10 +696,7 @@ info) (loop for ((count . size) name) in (sort (res) #'> :key #'cdar) do (format t "~20@A: ~:D bytes, ~:D object~:P.~%" - (if (pathnamep name) - (let ((name (namestring name))) - (subseq name (max (- (length name) 20) 0))) - name) + (subseq name (max (- (length name) 20) 0)) size count)))) (values)) -- GitLab