diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 02:02:51 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 02:02:51 +0200 |
commit | a989ea1318574332c31cc48defdbd01f88d74461 (patch) | |
tree | b63e0d98e3c20b128caaaf33bf6ed1a3a12db98e /Lisp/memory-management.lisp | |
parent | 319cdb79ca6ca45c9b2912ead651dffcf35ecbf5 (diff) |
PRIMITIVE-INVOKE: Fix a bunch of memory access bugs.
darcs-hash:36acfdc03f4004a971aa31a81b87e40c52940f82
Diffstat (limited to 'Lisp/memory-management.lisp')
-rw-r--r-- | Lisp/memory-management.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Lisp/memory-management.lisp b/Lisp/memory-management.lisp index 849e9d0..de75626 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* - (unsafe-primitive-invoke new-obj "retain" id)) + (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)))) - (unsafe-primitive-invoke temp "release" id)))) + (primitive-invoke temp "release" :void)))) (trivial-garbage:finalize new-obj #'finalizer)))) new-obj)) (t obj)))) |