GOOF----LE-8-2.0� ] \ 4 h� ] g guile� � g define-module*� � � g oop� g goops� g composite-slot� �
g filenameS� f oop/goops/composite-slot.scm� g importsS�
�
� � g exportsS� g <composite-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� ,
+ � -
+ � .g compute-get-n-set� /g make� 0
/ � 1
/ � 2g <generic>� 3
2 � 4
2 � 5g add-method!� 6
5 � 7
5 � 8g <method>� 9
8 � :
8 � ;g specializersS� <g <top>� =
< � >
< � ?g formalsS� @g class� Ag slot� B@A � Cg bodyS� Dg if� Eg eq?� Fg slot-definition-allocation� GFA � Hg
propagatedS� IEGH � Jg compute-propagated-get-n-set� KJA � Lg next-method� ML � NDIKM � ON � Pg make-procedureS� Qg procedureS� Rg get-keyword� Sg propagate-toS� Tg slot-definition-name� Ug goops-error� Vf %Propagation not specified for slot ~S� Wf Bad propagation list for slot ~S� Xg map� Yg slot-ref� Zg slot-set!� [g for-each�C 5 h� � ]4
5 4 > " G " +44ii 5> " xG " q4 5$ b4!i#5$ K4$i'4*i55$ -4-i4ii 5> " G " "��t" "��l" "��d4 .5� $ " .i� $ !4.414.5> " G " 47.i41:;i> ?BCOPFHJ h � ]45& 6L 6 � g class
g slot g filenamef oop/goops/composite-slot.scm�
1
�� 2 �� 2 �� 3 �� 1
�� C h m ] O C e g real-next-method
g filenamef oop/goops/composite-slot.scm�
1
��
CQ5 > " G RSTUVWXh w ] �$ �C Co g p
g filenamef oop/goops/composite-slot.scm�
? �� ? (�� ? $�� ? 2�� C h w ] �$ ��CL C o g p
g filenamef oop/goops/composite-slot.scm�
@ �� @ &�� @ "�� @ 0�� CY h o ]4 L5L 6 g g o
g filenamef oop/goops/composite-slot.scm�
E �� F �� F �� CZY h ~ ]4 L5L 6 v g o
g v g filenamef oop/goops/composite-slot.scm�
J
�� K �� K �� C[ZY h � ]4L 5L 6 ~ g object
g slot g filenamef oop/goops/composite-slot.scm�
M �� N &�� N �� C h v ] O LL 6 n g o
g v g filenamef oop/goops/composite-slot.scm�
L
�� M �� C
h� � ]14 �54 5 $ " 4> " G �$ " 4> " G 454 O 5 ��
O �(
O " O C � g s
� g prop � g s-name � g objects l � g slots l � g first-object v � g
first-slot v � g filenamef oop/goops/composite-slot.scm�
6
�� 7 ��
7 4��
7 �� 8 �� 7 �� : �� # ; �� ' ; �� . ; �� 9 <
�� = < �� B = �� F = �� M = �� V ? �� _ @ �� l ? �� s A �� v B �� v A �� � I �� � I �� � C �� � g nameg compute-propagated-get-n-set� CJRC g m
, g t
� � g filenamef oop/goops/composite-slot.scm�
�� 1 /
�� � 1
�� � 6
�� �
C6