From d9ac18064cf40f6fbbb09ec8ca74de212c012326 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sat, 15 Sep 2007 23:52:00 +0200 Subject: Reimplement PRIMITIVE-INVOKE and rename the old version UNSAFE-PRIMITIVE-INVOKE. darcs-hash:a941bade2677db3d5773c20ffda171c7c9721a98 --- Lisp/memory-management.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Lisp/memory-management.lisp') diff --git a/Lisp/memory-management.lisp b/Lisp/memory-management.lisp index 4dec98e..849e9d0 100644 --- a/Lisp/memory-management.lisp +++ b/Lisp/memory-management.lisp @@ -30,7 +30,7 @@ :incomplete) (let ((new-obj (call-next-method))) (unless *skip-retaining* - (primitive-invoke new-obj "retain" :id)) + (unsafe-primitive-invoke new-obj "retain" id)) (unless *skip-finalization* ;; We only put the new object into the hash ;; table if it is a regular wrapper object @@ -56,7 +56,7 @@ (*skip-retaining* t)) (make-instance saved-type :pointer saved-pointer)))) - (primitive-invoke temp "release" :id)))) + (unsafe-primitive-invoke temp "release" id)))) (trivial-garbage:finalize new-obj #'finalizer)))) new-obj)) (t obj)))) -- cgit v1.2.3