Commit 6c162153 authored by Daniel Kochmański's avatar Daniel Kochmański

Merge branch 'master' into 'master'

Add SBCL cons count support

This adds an implementation of `get-cons` for `SBCL`

See merge request !1
parents d726f5b3 2a52d9ec
Pipeline #89 skipped
...@@ -126,7 +126,11 @@ ...@@ -126,7 +126,11 @@
"ecl_make_unsigned_integer(GC_get_total_bytes())" "ecl_make_unsigned_integer(GC_get_total_bytes())"
:one-liner t)))) :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) (eval-when (load eval)
(warn "No consing will be reported unless a get-cons function is ~ (warn "No consing will be reported unless a get-cons function is ~
defined.") 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