Commit c32b47aa by Daniel Kochmański

fix consing for ecl

parent b9301fe2
......@@ -109,22 +109,8 @@
`(the consing-type (ccl::total-bytes-allocated)))
#+ecl
;; ECL has to compile the inlined C-code, otherwise it gets the generic
;; definition.
(eval-when (eval)
(warn "No consing will be reported unless the package is compiled.")
(defmacro get-cons ()
(defmacro get-cons ()
'(the consing-type 0))))
#+ecl
;; ECL has to compile the inlined C-code, otherwise it gets the generic
;; definition.
(eval-when (compile load)
(defmacro get-cons ()
`(the consing-type (ffi:c-inline () () :object
"ecl_make_unsigned_integer(GC_get_total_bytes())"
:one-liner t))))
(defmacro get-cons ()
`(the consing-type (si:gc-stats nil)))
#+sbcl
(defmacro get-cons ()
......
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