GOOF----LE-8-2.0
] � 4 h�
] g guile� � g define-module*� � � g oop� g goops� g stklos� �
g filenameS� f oop/goops/stklos.scm� g importsS�
g internal�
� � � g set-current-module� � � g module-for-each� g module-add!� g module-public-interface� g current-module� g resolve-interface� � g call-with-deferred-observers� � � g module-export!� � � � ! � "g define-class� #g
define-method� $"# � %g write-object� &% � 'g read-options� (' � )' � *g append� +* � ,* � -g keywords� .g prefix� /g make-syntax-transformer� 0/ � 1/ � 2g macro� 3g $sc-dispatch� 43 � 53 � 6g any� 7g each-any� 877�� 968�� :69�� ;6:�� <g
syntax-object� =g standard-define-class� >g top� ?> � @g ribcage� Ag dummy� Bg name� Cg supers� Dg slot� Eg rest� FABCDE � Gg
m-1f4787962-8� HG> � IH???? � Jf
l-1f4787962-d� Kf
l-1f4787962-e� Lf
l-1f4787962-f� Mf l-1f4787962-10� Nf l-1f4787962-11� OJKLMN � P@FIO � Q@ � Rg x� SR � TH � Uf
l-1f4787962-a� VU � W@STV � X?PQW � Yg hygiene� ZY � [<=XZ � \g syntax-violation� ]\ � ^\ � _f -source expression failed to match any pattern� `g module-define!� ag toplevel-define!� bg free-id� cg setter� dg m-1f4787962-1d� ed> � fe � gf l-1f4787962-1f� hg � i@Sfh � j?Qi � k<cjZ � lbk � ml6 � nm7�� o6n�� pg begin� qABE � re?? � sf l-1f4787962-22� tf l-1f4787962-23� uf l-1f4787962-24� vstu � w@qrv � x?wQi � y<pxZ � zg if� {<zxZ � |g or� }<|xZ � ~g not� <~xZ � �g defined?� �<�xZ � �g quote� �<�xZ � �g is-a?� �<�xZ � �g <generic-with-setter>� �<�xZ � �� � �<axZ � �g ensure-accessor� �<�xZ � �<xZ � �� � �g add-method!� �<�xZ � �<cxZ � �g method� �<�xZ � �67�� �6��� �f l-1f4787962-2a� �f l-1f4787962-2b� �f l-1f4787962-2c� ���� � �@qr� � �?�Qi � �<p�Z � �<z�Z � �<|�Z � �<~�Z � �<��Z � �<��Z � �<��Z � �g <generic>� �<��Z � �� � �g <primitive-generic>� �<��Z � �� � �<a�Z � �g ensure-generic� �<��Z � �<�Z � �� � �<��Z � �<��Z �C 5 h� � ]4
5 4 > " G 4i h � ]445 5 6 � g sym
g var g filenamef oop/goops/stklos.scm�
# �� $ �� $ 9�� $ �� $ �� C4i5> " G 4 !$ h F ] 45 6 > g filenamef oop/goops/stklos.scm�
)
��
C> " G 4 !& h F ] 45 6 > g filenamef oop/goops/stklos.scm�
,
��
C> " G 4)4,4)5 -. 5> " G 41"25;[, h w ]45���C o g dummy
g name g supers g slot g rest C^_ h( � ] 4 5 $ @ 6 � g x
" g tmp " g filenamef oop/goops/stklos.scm�
1
�� " g
macro-typeg syntax-rules�g patternsg nameg supersg slotg ... g restg ... C5"R` h � ]45 6 � g name
g val g filenamef oop/goops/stklos.scm�
4
�� 5 �� 5 �� g nameg toplevel-define!� CaR41#25oy{}���������� hp Q ] ��
���
� C I g dummy
n g name n g rest n n C��������������� hx Q ] �� ��
���
� C I g dummy
v g name v g rest v v C^_ h@ � ]4 5 $ @4 5 $ @ 6 � g x
9 g tmp 9 g tmp " 9 g filenamef oop/goops/stklos.scm�
8 �� 9 g
macro-typeg syntax-rules�g patternsg setterg name g restg ... g nameg restg ... C5#RC � g m
( g filenamef oop/goops/stklos.scm�
�� ) #
�� � & �� � & $�� � & �� � #
�� � )
�� t ,
�� � /
�� / �� /
�� � 4
��
�
C6