diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 21:08:09 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 21:08:09 +0100 |
| commit | 0e2686815a5b066e84fc3bd091073be0d0543f70 (patch) | |
| tree | d95e0c8e7f553fc1490e4868250792fcd5c49376 | |
| parent | b4517249b210065bcbf398c0b2c11097dd5b5d58 (diff) | |
Fix a possible NULL-pointer-related crash.
darcs-hash:1202c3fc56fbebc3338ed2b814b9c376bb0c5317
| -rw-r--r-- | Lisp/libobjcl.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 4dff7ad..9628468 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -605,7 +605,8 @@ separating parts by hyphens works nicely in all of the `:INVERT`, (defun objcl-class-superclass/pointer (class-ptr) (let ((superclass-ptr (%objcl-class-superclass class-ptr))) - (if (and superclass-ptr (%objcl-object-is-class superclass-ptr)) + (if (and (not (null-pointer-p superclass-ptr)) + (%objcl-object-is-class superclass-ptr)) (make-pointer-wrapper t :pointer superclass-ptr) nil))) |