Skip to content
Snippets Groups Projects
Commit a21795aa authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

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

parent 888f54ce
No related branches found
No related tags found
No related merge requests found
......@@ -406,8 +406,10 @@ Estimated total monitoring overhead: 0.88 seconds
(defmacro get-cons ()
`(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)
#+ecl
(defmacro get-cons ()
`(the consing-type (ffi:c-inline () () :object
"ecl_make_unsigned_integer(GC_get_total_bytes())"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment