[EDIT] FILE: composite-slot.go
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
SAVE
CANCEL