diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 15:52:59 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 15:52:59 +0100 |
| commit | c87c8aebcd991256c12c974e3134369d1911ad5f (patch) | |
| tree | aff990aee84786f02f741b838ff627acd89ba1d0 | |
| parent | 3f7b0e5500bb23581e3a5bc94feb9ecd624ae130 (diff) | |
Make OBJCL-CLASS-SUPERCLASS a bit safer.
darcs-hash:a9e4e8974f590ab21f9eb5985a9c1211ab4a644d
| -rw-r--r-- | Lisp/libobjcl.lisp | 2 |
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))) |