mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-10 07:00:20 -07:00
Code Issues Projects Releases Packages Wiki Activity

Replace DEFCONSTANT with DEFPARAMETER because it constains a call to C-INLINE

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-28 21:41:01 +02:00
parent 307ae3853a
commit ebefe248a0
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
contrib/profile/profile.lisp
View file

@ -40,10 +40,9 @@
extern ECL_API size_t GC_get_total_bytes();
")
(eval-when (:load-toplevel)
(defconstant +wrap+ (ffi:c-inline () () :object
"ecl_make_unsigned_integer(~((size_t)0))"
:one-liner t)))
(defparameter +wrap+ (ffi:c-inline () () :object
"ecl_make_unsigned_integer(~((size_t)0))"
:one-liner t))
(defun get-bytes-consed (orig)
(let ((bytes (ffi:c-inline () () :object "ecl_make_unsigned_integer(GC_get_total_bytes())"