diff options
Diffstat (limited to 'Lisp/data-types.lisp')
-rw-r--r-- | Lisp/data-types.lisp | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 7515d3a..11ac9fe 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -188,11 +188,3 @@ an __exception__, you can simply send it the `self' message. (pointer-eq (pointer-to obj1) (pointer-to obj2))) (defmethod objcl-eql (obj1 obj2) (eql obj1 obj2)) - - -(defun dealloc-obj-data (obj-data) - (with-foreign-slots ((type data) obj-data obj-data) - (when (and (pointerp type) - (not (null-pointer-p type))) - (foreign-string-free type))) - (foreign-free obj-data)) |