Commit 2a52d9ec authored by Michael Raskin's avatar Michael Raskin

Add SBCL cons count support

parent d726f5b3
......@@ -126,7 +126,11 @@
"ecl_make_unsigned_integer(GC_get_total_bytes())"
:one-liner t))))
#-(or cmu clisp clozure ecl)
#+sbcl
(defmacro get-cons ()
`(the consing-type (sb-ext:get-bytes-consed)))
#-(or cmu clisp clozure ecl sbcl)
(eval-when (load eval)
(warn "No consing will be reported unless a get-cons function is ~
defined.")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment