diff options
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 1b2beb7..4360ca5 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -178,7 +178,7 @@ a suitable class method instead as you would in Objective-C. (define-condition exception (error) ((pointer :type c-pointer - :accessor pointer-to + :reader pointer-to :initarg :pointer)) (:report (lambda (condition stream) (format stream @@ -256,12 +256,16 @@ an __exception__, you can simply send it the `self' message. (defun make-struct-wrapper (pointer typespec managedp) - (make-instance (ecase (typespec-primary-type typespec) - (struct 'tagged-struct) - (union 'tagged-union)) - :typespec typespec - :pointer pointer - :lisp-managed managedp)) + (let ((new-wrapper (make-instance (ecase (typespec-primary-type typespec) + (struct 'tagged-struct) + (union 'tagged-union)) + :typespec typespec + :pointer pointer + :lisp-managed managedp))) + (when managedp + (trivial-garbage:finalize new-wrapper + #'(lambda () + (foreign-free pointer)))))) (defgeneric objcl-eql (obj1 obj2)) |