From 75c2ba4fc3f05d61beea196d64d85f5595864535 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 21 Sep 2007 01:40:13 +0200
Subject: Remove even more code that has become obsolete through the new
 version of INVOKE-BY-NAME.

darcs-hash:06fc98c5e106ac3fc0fd07ac5cc226ea431d265d
---
 Lisp/data-types.lisp | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'Lisp/data-types.lisp')

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))
-- 
cgit v1.2.3