diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-14 16:56:39 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-14 16:56:39 +0200 |
commit | 9db618bedb91bccb935f025f45094fd20ec754ef (patch) | |
tree | b151dd22bc2ec7b0c90b4b56b89f845e7f29ea7e /Lisp/data-types.lisp | |
parent | 9197694fe9fd4eaa6e2c11f0acc92ef60ab6110a (diff) |
Code reorganisation.
darcs-hash:be8c8af8504b2ce63cde33a893542d3590abd703
Diffstat (limited to 'Lisp/data-types.lisp')
-rw-r--r-- | Lisp/data-types.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
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)) |