Question

有没有办法找出一个类或基本数据类型的实例一般使用了多少内存？

我在cl中有一个玩具webframework，它创建和管理带有代表html标签及其属性的类的实例的网页，并且因为它们应该创建一个html页面，所以他们在名为children的插槽中有子节点。所以我想如果采用这种方法，用户的会话将花费多少服务器。感谢。

Answer 1

据我所知，标准中的任意对象没有这样的内容，但是依赖于实现的解决方案，如CCL中的ccl:object-direct-size：

CL-USER> (object-direct-size "foo")
16

但是，请注意这些是否符合您的要求取决于“大小”的含义，因为这些函数通常不包括对象引用的组件的大小。您也可以在之前和之后运行GC，初始化一些对象和compare room的output。

另请注意，time通常包含分配信息：

CL-USER> (time (length (make-array 100000)))
(LENGTH (MAKE-ARRAY 100000))
took 0 milliseconds (0.000 seconds) to run.
During that period, and with 2 available CPU cores,
     0 milliseconds (0.000 seconds) were spent in user mode
     0 milliseconds (0.000 seconds) were spent in system mode
 400,040 bytes of memory allocated.
100000

也许你可以尝试这样的事情（未经测试，真的只是一个快速的黑客攻击）：

(defmethod size ((object standard-object))
  (let ((size (ccl:object-direct-size object)))
    (dolist (slot (mapcar #'ccl:slot-definition-name
                          (ccl:class-slots (class-of object))))
      (when (slot-boundp object slot)
        (incf size (size (slot-value object slot)))))
    size))

(defmethod size ((list list))
  (reduce (lambda (acc object) (+ acc (size object)))
          list
          :initial-value (ccl:object-direct-size list)))

(defmethod size (object)
  (ccl:object-direct-size object))

例如：

CL-USER> (defclass foo ()
           ((child :accessor child :initarg :child)))
#<STANDARD-CLASS FOO>
CL-USER> (defclass bar (foo)
           ((child2 :accessor child2 :initarg :child2)))
#<STANDARD-CLASS BAR>
CL-USER> (size '())
0
CL-USER> (size "foo")
16
CL-USER> (size '("foo" "bar"))
40
CL-USER> (size (make-instance 'foo))
16
CL-USER> (size (make-instance 'foo :child '("foo" "bar" "baz")))
72
CL-USER> (size (make-instance
                'bar
                :child "foo"
                :child2 (make-instance 'foo :child (make-array 100))))
456

Answer 2

在Common Lisp中，CLOS对象通常是插槽的集合。通常，这些槽可以在内部存储在某种矢量中。 CLOS槽通常包含指向某个数据对象的指针，或者对于一些原始数据类型，可能包含数据本身。这些原始数据类型必须适合内存字：例如fixnums和characters。 Common Lisp实现通常不会将更复杂的数据结构内联到插槽中。例如，可以声明一个槽包含一个fixnums向量。实现不会在CLOS对象中分配此向量。 CLOS对象将指向一个矢量对象。

CLOS对象本身应该占用：槽数*字大小+开销。

假设一个字长4个字节，32位。

这可能是具有十个插槽的CLOS对象的大小：

10 slots * 4 bytes + 8 bytes = 48 bytes

现在假设CLOS对象的每个槽指向不同的字符串，每个字符串长100个字节。

上面的例子：

1 CLOS object + 10 strings each 100 bytes.

48 bytes + 10 * 100 = 1048 bytes

现在想象每个插槽指向相同的字符串：

1 CLOS object + 1 string of 100 bytes.

48 bytes + 100 bytes = 148 bytes

要计算CLOS对象的大小，您可以：

只计算CLOS对象本身的大小。这很容易。
以某种方式计算可从对象到达的对象图，确定唯一的内存对象（减去直接分配的原始对象）并总结这些对象的所有内存大小。

Answer 3

我在cl中也有网页框架，也遇到了同样的会话问题，这就是宇宙发送给我的https://people.gnome.org/~xan/memory.lisp 它似乎适用于sbcl

(memory::dump-memory (weblocks::active-sessions))
Total memory used: 99.785706 MB

常见的lisp中对象的内存使用情况

3 个答案: