summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-04 21:08:09 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-04 21:08:09 +0100
commit0e2686815a5b066e84fc3bd091073be0d0543f70 (patch)
treed95e0c8e7f553fc1490e4868250792fcd5c49376 /Lisp
parentb4517249b210065bcbf398c0b2c11097dd5b5d58 (diff)
Fix a possible NULL-pointer-related crash.
darcs-hash:1202c3fc56fbebc3338ed2b814b9c376bb0c5317
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp3
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)))