X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=4dbefe7f41dd2eb4107f99f6dbc465325296ef7d;hb=2d3cb6dba6461e98744eca2a1df4f770cea468ca;hp=df09fbef15f2d499868c0be92ebd5b9413feb28a;hpb=2db3b6b4cb740d5b6512459c223859f747807b09;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index df09fbe..4dbefe7 100644
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -499,19 +499,19 @@
        (when (eql type instance-header-widetag)
 	 (incf total-objects)
 	 (incf total-bytes size)
-	 (let* ((class (layout-class (%instance-ref obj 0)))
-		(found (gethash class totals)))
+	 (let* ((classoid (layout-classoid (%instance-ref obj 0)))
+		(found (gethash classoid totals)))
 	   (cond (found
 		  (incf (the fixnum (car found)))
 		  (incf (the fixnum (cdr found)) size))
 		 (t
-		  (setf (gethash class totals) (cons 1 size)))))))
+		  (setf (gethash classoid totals) (cons 1 size)))))))
      space)
 
     (collect ((totals-list))
-      (maphash (lambda (class what)
+      (maphash (lambda (classoid what)
 		 (totals-list (cons (prin1-to-string
-				     (class-proper-name class))
+				     (classoid-proper-name classoid))
 				    what)))
 	       totals)
       (let ((sorted (sort (totals-list) #'> :key #'cddr))