Commit a21795aa authored by Daniel Kochmański's avatar Daniel Kochmański

cosmetic: add some comment for ecl's get-cons

parent 888f54ce
...@@ -406,8 +406,10 @@ Estimated total monitoring overhead: 0.88 seconds ...@@ -406,8 +406,10 @@ Estimated total monitoring overhead: 0.88 seconds
(defmacro get-cons () (defmacro get-cons ()
`(the consing-type (ccl::total-bytes-allocated)))) `(the consing-type (ccl::total-bytes-allocated))))
#+ecl
;; ECL has to compile the inlined C-code, otherwise it gets the generic
;; definition.
(eval-when (compile load) (eval-when (compile load)
#+ecl
(defmacro get-cons () (defmacro get-cons ()
`(the consing-type (ffi:c-inline () () :object `(the consing-type (ffi:c-inline () () :object
"ecl_make_unsigned_integer(GC_get_total_bytes())" "ecl_make_unsigned_integer(GC_get_total_bytes())"
......
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