- (ffi:c-inline (weak) (:pointer-void) (values :object :object)
- "{ cl_object *weak = #0;
- if (*weak) { @(return 0) = *weak; @(return 1) = @t; }
- else { @(return 0) = @nil; @(return 1) = @nil; } }"
+ (ffi:c-inline (weak) (:pointer-void) (values :object :object) "
+ {
+ cl_object obj = GC_call_with_alloc_lock(fetch_obj, #0);
+ if (obj) { @(return 0) = obj; @(return 1) = @t; }
+ else { @(return 0) = @nil; @(return 1) = @nil; }
+ }"