diff options
| -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))) |