From 9db618bedb91bccb935f025f45094fd20ec754ef Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 14 Sep 2007 16:56:39 +0200
Subject: Code reorganisation.

darcs-hash:be8c8af8504b2ce63cde33a893542d3590abd703
---
 Lisp/data-types.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index 606c0c4..b22057f 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -163,7 +163,9 @@ an __exception__, you can simply send it the `self' message.
 
 (defun dealloc-obj-data (obj-data)
   (with-foreign-slots ((type data) obj-data obj-data)
-    (foreign-string-free type))
+    (when (and (pointerp type)
+               (not (null-pointer-p type)))
+      (foreign-string-free type)))
   (foreign-free obj-data))
 
 
-- 
cgit v1.2.3