Summary

coops#subclass? can process abort

Metadata

• Id: 39e777dfb0836cfbcfb60e3567f9592d656a0792
• Trac id: 304
• Type: defect
• Reporter: kon
• Owner: felix
• Cc:
• Status: closed
• Component: extensions
• Estimated difficulty:
• Resolution: fixed
• Priority: critical
• Milestone:
• Version: 4.5.x
• Changetime: 2010-08-06 10:58:08 UTC
• Created: 2010-08-05 08:36:04 UTC
• Keywords: coops

Description

(use coops) (subclass? 'not-a-class! <standard-class>) ;=> Bus error (MacOS 10.5)

The `c1' argument is interpreted as a class w/o determining the safety.

Maybe: ((memq c2 (slot-value c1 'class-precedence-list)) #t)

 =>

((and (coops-instance? c1) (memq c2 (slot-value c1 'class-precedence-list))) #t)

Changes and comments

[2010-08-06 10:00:51 UTC] felix changed status from new to accepted

[2010-08-06 10:00:51 UTC] felix changed component from unknown to extensions

[2010-08-06 10:00:51 UTC] felix changed priority from major to critical

[2010-08-06 10:00:51 UTC] felix set owner to felix

[2010-08-06 10:00:51 UTC] felix removed milestone 4.6.0

[2010-08-06 10:00:51 UTC] felix set keywords to coops

[2010-08-06 10:58:08 UTC] felix changed status from accepted to closed

[2010-08-06 10:58:08 UTC] felix set resolution to fixed

[2010-08-06 10:58:08 UTC] felix wrote:

I added a type-check in `slot-lookup`. Thanks for reporting this.