contrib/sb-sprof/test.lisp

   1 (in-package :cl-user)
   2 (require :sb-sprof)
   3
   4 #-(or win32 darwin)                    ;not yet
   5 (sb-sprof::test)
   6 #-(or win32 darwin)                    ;not yet
   7 (sb-sprof::consing-test)
   8
   9 ;; For debugging purposes, print output for visual inspection to see if
  10 ;; the allocation sequence gets hit in the right places (i.e. not at all
  11 ;; in traditional builds, and everywhere if SB-SAFEPOINT-STRICTLY is
  12 ;; enabled.)
  13 (disassemble #'sb-sprof::consalot)