GOOF----LE-8-2.0 ] � 4 h� ] g guile� � g define-module*� � � g oop� g goops� g active-slot� �
g filenameS� f oop/goops/active-slot.scm� g importsS�
g internal�
� � � g exportsS� g <active-class>� � g set-current-module� � � � g toplevel-define!� � � g
make-class� g <class>� g nameS� g defined?� � � !g is-a?� "! � #! � $ � % � &g memq� 'g <object>� (' � )' � *g class-precedence-list� +* � ,* � -g class-redefinition� .- � /- � 0g compute-get-n-set� 1g make� 21 � 31 � 4g <generic>� 54 � 64 � 7g add-method!� 87 � 97 � :g <method>� ;: � <: � =g specializersS� >g <top>� ?> � @> � Ag formalsS� Bg class� Cg slot� DBC � Eg bodyS� Fg if� Gg eq?� Hg slot-definition-allocation� IHC � Jg activeS� KGIJ � Lg let*� Mg index� Ng slot-ref� Og quote� Pg nfields� QOP � RNBQ � SMR � Tg s� Ug cdr� VUC � WTV � Xg
before-ref� Yg get-keyword� Zg before-slot-refS� [YZT � \X[ � ]g after-ref� ^g after-slot-refS� _Y^T � `]_ � ag before-set!� bg before-slot-set!S� cYbT � dac � eg
after-set!� fg after-slot-set!S� gYfT � heg � ig unbound� jg make-unbound� kj � lik � mSW\`dhl � ng slot-set!� og +� poM � qnBQp � rg list� sg lambda� tg o� ut � vXt � wg let� xg res� yg %fast-slot-ref� zytM � {xz � |{ � }g and� ~g not� g eqv?� �xi � �~� � �]t � �}]�� � �w|�x � �Fv�k � �FX�� � �su� � �g v� �t� � �at� � �g begin� �g %fast-slot-set!� ��tM� � �et� � �}e� � ���� � �F�� � �Fa�� � �s�� � �r�� � �Lmq� � �g next-method� �� � �FK�� � �� � �g make-procedureS� �g procedureS�C 5 h | ]4
5 4 > " G " +44i i 5> " xG " q4 5$ b4#i%5$ K4&i)4,i55$ -4/i4i i 5> " G " "��t" "��l" "��d4 05� $ " 0i� $ !40436 05> " G " 90i43<=i@ ADE��HJNPYZ^bfjnyj h� � ] L$ F4L 5$ 74 L 5 L$ #L�$ " 4L > " G " C6 4 L 5 L$ #L�$ " 4L > " G " C � g o
� g res J g res W � g filenamef oop/goops/active-slot.scm�
* �� + �� , �� , �� - #�� - �� $ . �� ) . .�� - . �� 2 . B�� N 0 �� O 1 �� W 1 �� _ 2 �� d 2 *�� h 2 �� m 2 >�� � C� hh � ]L$ 54L 5$ &4 L> " G L $ L 6CC4 L> " G L $ L 6C � g o
c g v c g filenamef oop/goops/active-slot.scm�
5 �� 6 �� 7 �� 7 �� 9 �� 1 : �� 9 : *�� > < �� Y = �� a = &�� c C h� � ]:45& z4 5 � 45 45 45 4 5 4
5 4 �> " G O
O CL 6 � g class
� g slot � g index � g s � g
before-ref ) � g after-ref 5 � g before-set! A � g
after-set! M � g unbound T � g filenamef oop/goops/active-slot.scm�
�� ! �� ! �� " �� " *�� " �� " �� # �� " �� $ �� ) " �� , % �� 5 " �� 8 & �� A " �� D ' �� M " �� P ( �� T " �� W ) �� ] ) �� ` ) "�� e ) �� � * �� �
�� � C h j ] O C b g real-next-method
g filenamef oop/goops/active-slot.scm�
��
C�5 6 t g m
, g t
� � g filenamef oop/goops/active-slot.scm�
�� 1
�� �
��
C6