From c87c8aebcd991256c12c974e3134369d1911ad5f Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 3 Feb 2008 15:52:59 +0100 Subject: Make OBJCL-CLASS-SUPERCLASS a bit safer. darcs-hash:a9e4e8974f590ab21f9eb5985a9c1211ab4a644d --- Lisp/libobjcl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- cgit v1.2.3