From ebefe248a04903315b648b0d5bcafcd8498d154c Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 28 Jun 2009 21:41:01 +0200 Subject: [PATCH] Replace DEFCONSTANT with DEFPARAMETER because it constains a call to C-INLINE --- contrib/profile/profile.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/contrib/profile/profile.lisp b/contrib/profile/profile.lisp index 03193fd38..d60f305b7 100644 --- a/contrib/profile/profile.lisp +++ b/contrib/profile/profile.lisp @@ -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())"