Opened 14 years ago

Closed 14 years ago

#304 closed defect (fixed)

coops#subclass? can process abort

Reported by: Kon Lovett Owned by: felix winkelmann
Priority: critical Milestone:
Component: extensions Version: 4.5.x
Keywords: coops Cc:
Estimated difficulty:

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)

Change History (2)

comment:1 Changed 14 years ago by felix winkelmann

Component: unknown → extensions
Keywords: coops added
Milestone: 4.6.0
Owner: set to felix winkelmann
Priority: major → critical
Status: new → accepted

comment:2 Changed 14 years ago by felix winkelmann

Resolution: → fixed
Status: accepted → closed

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

Note: See TracTickets for help on using tickets.