summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 19f5a29..93ecaef 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -582,7 +582,7 @@ separating parts by hyphens works nicely in all of the `:INVERT`,
(defun objcl-class-superclass (class)
(let ((superclass-ptr (%objcl-class-superclass (pointer-to class))))
- (if superclass-ptr
+ (if (and superclass-ptr (%objcl-object-is-class superclass-ptr))
(make-pointer-wrapper t :pointer superclass-ptr)
nil)))