From c87c8aebcd991256c12c974e3134369d1911ad5f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
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(-)

(limited to 'Lisp/libobjcl.lisp')

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