summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-03 15:52:59 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-03 15:52:59 +0100
commitc87c8aebcd991256c12c974e3134369d1911ad5f (patch)
treeaff990aee84786f02f741b838ff627acd89ba1d0 /Lisp
parent3f7b0e5500bb23581e3a5bc94feb9ecd624ae130 (diff)
Make OBJCL-CLASS-SUPERCLASS a bit safer.
darcs-hash:a9e4e8974f590ab21f9eb5985a9c1211ab4a644d
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)))