diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 01:40:13 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 01:40:13 +0200 |
| commit | 75c2ba4fc3f05d61beea196d64d85f5595864535 (patch) | |
| tree | f0b8b3278a72d5daa07e242d110060f5d09d296f /Lisp/data-types.lisp | |
| parent | c9d12c3ac0b14ec509ab63ac8d915bcf33f5ae06 (diff) | |
Remove even more code that has become obsolete through the new version of INVOKE-BY-NAME.
darcs-hash:06fc98c5e106ac3fc0fd07ac5cc226ea431d265d
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)) |