Ticket #304 (closed defect: fixed)

Opened 3 years ago

Last modified 3 years ago

coops#subclass? can process abort

Reported by: kon Owned by: felix
Priority: critical Milestone:
Component: extensions Version: 4.5.x
Keywords: coops Cc:

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

Changed 3 years ago by felix

  • status changed from new to accepted
  • component changed from unknown to extensions
  • priority changed from major to critical
  • owner set to felix
  • milestone 4.6.0 deleted
  • keywords coops added

Changed 3 years ago by felix

  • status changed from accepted to closed
  • resolution set to fixed

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

Note: See TracTickets for help on using tickets.