From 0e2686815a5b066e84fc3bd091073be0d0543f70 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 4 Feb 2008 21:08:09 +0100 Subject: Fix a possible NULL-pointer-related crash. darcs-hash:1202c3fc56fbebc3338ed2b814b9c376bb0c5317 --- Lisp/libobjcl.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Lisp') 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))) -- cgit v1.2.3