[Sbcl-devel] How to examine heap? noobie

[<nab...@gm...>]

Hi,

I'm playing with hunchentoot and trying to shrink memory usage.

I've found two big 4MB arrays, with the same sizes (strange). Is there
any way to dig thru heap and find who use them.

Tried this,
------
(defun find-hog ()
 (sb-vm::map-allocated-objects
  (lambda (obj type size)
    (when (eq type 202) ; 202 - simple-array-signed-byte-30
      (when (> size 2000)
        (print (type-of obj))
        (print
         (sb-vm::list-referencing-objects :dynamic obj)))))
  :dynamic))
------


(SIMPLE-ARRAY FIXNUM (1114112))
NIL
(SIMPLE-ARRAY FIXNUM (1114112))
NIL
NIL

it gives me nothing :-(


-- 
Pozdrawiam,
Rafal Strzalinski (nabla)
http://nablaone.net