Your IP : 216.73.216.190
GOOF----LE-8-2.0v2]i4h_]gguile� � gdefine-module*� � � goop� ggoops� gdescribe� �
gfilenameS� foop/goops/describe.scm� gimportsS�
�
� gice-9� gsession� � � gformat� � � � gexportsS� � gset-current-module� � � gdefined?�
�
� gtoplevel-define!�
� !
� "gmake� #
"� $
"� %g <generic>� &
%� '
%� (gnameS� )gadd-method!� *
)� +
)� ,g<method>� -
,� .
,� /gspecializersS� 0g<top>� 1gformalsS� 2gx� 32� 4gbodyS� 5f~s is � 652� 7gcond� 8ginteger?� 982� :f
an integer� ;:� <9;� =greal?� >=2� ?fa real� @?� A>@� Bgcomplex?� CB2� Dfa complex number� ED� FCE� Ggnull?� HG2� If
an empty list� JI� KHJ� Lgboolean?� ML2� Nfa boolean value (~s)� Ogif� Pgquote� Qgtrue� RPQ� Sgfalse� TPS� UO2RT� VNU� WMV� Xgchar?� YX2� Zfa character, ascii value is ~s� [g
char->integer� \[2� ]Z\� ^Y]� _gsymbol?� `_2� afa symbol� ba� c`b� dglist?� ed2� ffa list� gf� heg� igpair?� ji2� kgcdr� lk2� mil� nfan improper list� on� pfa pair� qp� rOmoq� sjr� tgstring?� ut2� vgeqv?� wf� xv2w� yfan empty string� zy� {fa string of length ~s� |g
string-length� }|2� ~{}� Oxz~��u��gvector?���2����P���v2���fan empty vector�����fa vector of length ~s��g
vector-length���2������O���������geof-object?���2��fthe end-of-file object���������gelse��fan unknown object (~s)���2������7<AFKW^chs������f.~%�����g
*unspecified*��6�����gmake-procedureS��g procedureS��g<procedure>��glet��gname��gprocedure-name���2���������f`~s'������gdisplay���2��O�����f is ������fan anonymous��O�a�������f
procedure������f with ������garity���2���������������gslot-bound?��g
class-name��gsafe-class-name��g<object>��f~S is an instance of class ~A~%��gclass-of���2�������2���f
Slots are: ~%�����gfor-each��glambda��gslot�����gslot-definition-name�������������f ~S = ~A~%���2���f~S��gslot-ref���2�������f
#<unbound>��O��������������������gclass-slots�����������������g<class>��f'~S is a class. It's an instance of ~A~%���2�������fSuperclasses are:~%�����gclass�����f ~A~%���������������gclass-direct-supers���2�������gslots��gclass-direct-slots���2���������G���f(No direct slot)~%�����gbegin��fDirects slots are:~%�����gs����������������������������O����������gclasses��gclass-direct-subclasses���2�������G��f(No direct subclass)~%��fDirects subclasses are:~%���������� ���
� �O
���
fClass Precedence List is:~%�
�gclass-precedence-list�2���gmethods�gclass-direct-methods�2���G�f(No direct method)~%��fClass direct methods are:~%������O��� �����!ggeneric-function-name�"!2�#�"�$ggeneric-function-methods�%$2�&%�'#&�(f3~S is a generic function. It's an instance of ~A.~%�)(���*f(No method defined for ~S)~%�+*��,fMethods defined for ~S~%�-,��.2�/�3.�0�/�1�-0�2O+1�3�')2�43�5
0�6
0�7gomit-generic�827��9gletrec�:g
print-args�;gargs�<;�=G;�>gnewline�?>�@=?�Ai;�B� �Cgcar�DC;�E�D�F�E�Gk;�H:G�IABFH�J�;�K�J�L�BK?�M7@IL�N�<M�O:N�PO�Qf Method ~A~%�RQ2�SG7�Tggf�Ugmethod-generic-function�VU2�WTV�XW�Yf Generic: ~A~%�Z!T�[YZ�\f (No generic)~%�]\�^OT[]�_�X^�`OS_�af Specializers:�ba�cgmethod-specializers�dc2�e:d�f9PR`be�gf�hgprovide�C5h�]4
54>"G45�$"i�$!4!4$'(5>"G"4+i4$./0i134���58:=?BDILNQSXZ[afnptwy{|��������"hH�]4>"G45$4>"G"�45$4>"G"�45$4>"G"�(4 >"G"�4
5$%4$"
>"G"g45$445>"G">�$4>"G" �$4>"G"�$6��$4>"G"4>"G"�45$>�$4>"G"445>"G"|�$>�$4>"G"445>"G"745$4>"G"4 >"G4!>"GC|gx
Fgfilenamefoop/goops/describe.scm�
#
�� $ �� $
�� $ �� & �� " % �� # & �� ( & #�� - & �� : ' �� D % �� E ' �� J ' #�� O ' �� \ ( �� f % �� g ( �� l ( #�� q ( ��� % ��� ) ��� ) #��� ) ��� * ��� % ��� * ��� * #��� * :��� * @��� * F��� * ��� + ��� % ��� + ��� + #��� , ��� + ��� - ��� % ��� - �� - #�� - �� . �� % �� . �� . #��# . ��2 / ��6 % ��9 / #��: / ��> / ��? 0 ��D 0 '��I 0 ��V 1 ��[ 1 '��` 1 ��m 2 ��w % ��{ 2 $��| 2 ��� 2 ��� 3 ��� 3 '��� 3 ��� 4 ��� 4 '��� 4 ?��� 4 ��� 5 ��� % ��� 5 $��� 5 ��� 5 ��� 6 ��� 6 '��� 6 ��� 7 ��� 7 '��� 7 ?��� 7 ��� 8 �� % �� 8 �� 8 #�� 8 �� 9 ��" 9 #��) 9 ��2 : ��7 :
��< : ��^ FC5>"G45�$"i�$!4!4$'(5>"G"4+i4$./�i134�����������
h�] 45$4>"G"4>"G4>"G4$a">"G4>"G4>"G 6gx
�gname �gfilenamefoop/goops/describe.scm�
=
�� > �� > �� ? �� @ �� @ �� @ �� + A �� = B �� A B
�� F B �� O C �� W C
�� _ C �� d C �� m D �� q D
�� v D �� E ��� E
��� E ��� F �� �C5>"G���h�]45$6C�gclass
gfilenamefoop/goops/describe.scm�
K
�� L �� L �� L �� L �� M �� gnamegsafe-class-name�C�R45�$"i�$!4!4$'(5>"G"4+i4$./�i134�������������h8�] 454L5$44L55"6�gslot
8gname 8gfilenamefoop/goops/describe.scm�
V �� W �� W �� X �� Z �� Z �� [ �� % [ '�� & [ ,�� 0 [ �� 6 \ �� 8 X ��
8C�hX�]44�5>"G4>"G4O4�5>"GC�gx
Sgfilenamefoop/goops/describe.scm�
P
�� Q �� Q
�� R �� R �� R �� Q �� U �� % U
�� * U �� 3 V �� = ] �� B ] �� D ] �� I V �� SC5>"G45�$"i�$!4!4$'(5>"G"4+i4$./�i134 ��������hu]456mgclass
gfilenamefoop/goops/describe.scm�
i �� i '�� i 2�� i �� C������hq]456igs
gfilenamefoop/goops/describe.scm�
r �� s !�� s ,�� s �� C���hq]456igs
gfilenamefoop/goops/describe.scm�
} �� ~ !�� ~ ,�� ~ �� C
��hu]456mgs
gfilenamefoop/goops/describe.scm�
� �� � #�� � .�� � �� ChPC] 4454�5>"G4>"G445>"G45(4 >"G"'4
>"G4>"G45(4
>"G"'4>"G4>"G4>"G445>"G45(64>"G6;gx
Mgslots W�gclasses��gmethods#Mgfilenamefoop/goops/describe.scm�
c
�� d �� d
�� e
�� e �� e /�� e �� d �� % h �� * h
�� / h �� 8 i �� = j �� H i �� Q m �� W m �� _ n �� ` o �� e o �� j o �� w q
�� | q ��� q
��� r
��� x ��� x ��� y ��� z ��� z ��� z ��� |
��� | ��� |
��� }
���� ����
���� ��� �� � ��� ��� ��#� ��+� ��0� ��2� ��3�
��8� ��=�
��M�
��2 MC5>"G45�$"i�$!4!4$'(5>"G"4+i4$./%i1344��!$(�*,�hc]6[gx
gfilenamefoop/goops/describe.scm�
� �� � �� C
h`]454544�5>"G( 64>"G 6gx
]gname ]gmethods ]gfilenamefoop/goops/describe.scm�
�
�� � ��
� �� � �� � �� � �� � �� "� "�� $� �� )� �� 7� �� <� �� @� �� A�
�� F� �� M�
�� ]�
�� ]C5>"G45�$"i�$!4!4$'(5>"G"4+i4$./,i6�184g��>��QUY!\ach-13"q(6�$34 >"G44�5>"G�"���4 >"G445>"G64>"G(G45$445>"G"4 >"G"4
>"G45"��
�gx
gomit-generic gargs
~ggf ��gfilenamefoop/goops/describe.scm�
�
��
� �� � �� � -�� � �� � �� � �� 1� �� 4� )�� 9� :�� ;� )�� @� �� K� ,�� Q� �� R� �� d� �� g� )�� r� �� ~� �� ~� �� � ���� ���� ���� ���� ���� ���� ���� ���� ���� .���� ���� ���� ���� ���� ���� ���� ���� ��� ��(
C5>"Ghi6�gm
,gt
4 Igt
��gt
� �gt
��gt
J_gt
��gfilenamefoop/goops/describe.scm�
�� - #
��� =
�� � K
�� � P
��� c
��C�
����
��y� ��{�
�� {
C6
?>