libera/#ccl - IRC Chatlog

22:31:50 monash slot-value-using-class slot-boundp-using-class isn't doing anything on ccl, i define the methods like (defmethod (setf ccl:slot-value-using-class) (value (class standard-class) (obj foo) slot) ...)

22:37:17 monash (defclass foo () (slot-1 slot-2) ()) -- with an empty () for class-options fails on ccl

22:37:39 monash with: Class option NIL is not one of (:PRIMARY-P :DOCUMENTATION :DIRECT-DEFAULT-INITARGS :DIRECT-SLOTS :DIRECT-SUPERCLASSES :NAME)

22:38:10 monash though it accepts (:default-initargs nil) and (:default-initargs) as class-options

22:38:56 monash what am i missing in s-v-u-c ?

22:50:53 monash (trace ccl::slot-boundp-using-class) results in catastrophic failure

22:51:01 monash on say a make-instance

23:35:08 monash in first report above, i wanted to define s-v-u-c for a virtual slot so slot-value works for a slot which is not found in class-slots, i guess that's not possible in ccl

23:35:43 monash because slot-value checks for the slot in class-slots before calling s-v-u-c

0:09:12 reb monash: Try the code here https://codeberg.org/pcostanza/mop-features and see what it says about what CCL implements.