Changeset 13467

Timestamp:

Feb 27, 2010, 8:56:57 AM (15 years ago)

Author:

gz

Message:

In heap-utilization-by-class, use the class of the function, not the function vector

File:

• branches/working-0711/ccl/lib/misc.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/misc.lisp

@@ -1001 +1001 @@
                           (class (class-of (if (eql typecode target::subtag-slot-vector)
                                              (uvref thing slot-vector.instance)
-                                             thing)))
+                                             (if (eql typecode target::subtag-function)
+                                               (function-vector-to-function thing)
+                                               thing))))
                           (index (or (gethash class map)
                                      (let ((count (hash-table-count map)))