CL-USER(1): (defclass a () ())
#<STANDARD-CLASS A {36AE996}>
CL-USER(2): (defclass b (a) ())
#<STANDARD-CLASS B {1794618C}>
CL-USER(3): (setf olda (make-instance 'a))
#<A {1D439996}>
CL-USER(4): (setf oldb (make-instance 'b))
#<B {83E2CDE}>
CL-USER(5): (defclass a () ((s :accessor s :initarg :s :initform 1)))
#<STANDARD-CLASS A {36AE996}>
CL-USER(6): (slot-value olda 's)
1
CL-USER(7): (slot-value oldb 's)
#<THREAD "interpreter" native {49571680}>: Debugger invoked on condition of type SIMPLE-ERROR
The slot S is missing from the class #<STANDARD-CLASS B {1794618C}>.
Restarts:
0: TOP-LEVEL Return to top level.
[1] CL-USER(8):
I think I have located the issue in the code, trying to solve it now
While working for solve #80 I found this issue
I think I have located the issue in the code, trying to solve it now