GOOF----LE-8-2.0M� ]� 4 h�. ] g guile� � g define-module*� � � g oop� g goops� g save� �
g filenameS� f oop/goops/save.scm� g importsS�
g internal�
� � g util� � � � g exportsS� g save-objects� g load-objects� g restore� g
enumerate!� g enumerate-component!� g write-readably� g write-component� g write-component-procedure� g literal?� g readable� g
make-readable� � !g
re-exportsS� "g make-unbound� #" � $g set-current-module� %$ � &$ � ' � (g defined?� )'( � *'( � +g
immediate?� ,g toplevel-define!� -', � .', � /g make� 0'/ � 1'/ � 2g <generic>� 3'2 � 4'2 � 5g nameS� 6g add-method!� 7'6 � 8'6 � 9g <method>� :'9 � ;'9 � <g specializersS� =g <top>� >g formalsS� ?g o� @? � Ag bodyS� B � Cg make-procedureS� Dg procedureS� Eg <null>� F � Gg <number>� Hg <boolean>� Ig <symbol>� Jg <char>� Kg <keyword>� L'= � M'= � Ng env� O?N � Pg file� Q?PN � Rg write� SR?P � TS � Ug make-weak-key-hash-table� Vg readables� Wg make-syntax-transformer� XW � YW � Zg macro� [g $sc-dispatch� \[ � ][ � ^g _� _g any� `^_�� ag
syntax->datum� ba � ca � dg
datum->syntax� ed � fd � gg quote� hg copy-tree� ig syntax-violation� ji � ki � lf -source expression failed to match any pattern� mg
hashq-set!� ng hashq-ref� og readable-expression� pg readable?� qg excluded?� rg display� sg object-info� tg binding?� ug visiting� vg definedS� wg binding� xg or� yg begin� zg add-patcher!� {g <string>� |g <vector>� }g not� ~g vector?� ~? � �} � �g let� � � �� � �g array-for-each� �g lambda� �g if� �?N � �}� � �g set!� �� � ���� � ��@� � ���? � ���� � �x�� � �� � �g n� �g
vector-length� ��? � ��� � �� � �g zero?� ��� � �f #()� �r�P � �g not-literal?� �?N � �}� � ��� � �� � �f (vector � �f #(� ����� � �r�P � �g and� �g
vector-ref� ��?
� ��N � ���� � �r'P � ���� � �g
quasiquote� �g vector-set!� �g unquote� ��? � ��� � ���
� � ��� � ���PN � �g do� �g i� �g +� ��� � ��� � �� � �g =� ���� � �� � �r P � ��?� � ��N � ���� � ���� � ��� � ��� � ����� � ��� � ���PN � ������� � �r)P � �������� � ����� � ���� � ���S� � �� � �g <array>� �g shared-array-root� ��? � ��N � �� � �g
array-rank� �g reverse� �g list-tail� �g t� �g s� �g r� �g q� �g p� �g m� �g l� �g k� �g j� ������������ � �g gensym� �f i� �g shared-array-offset� �g map� �g *� �g -� �g array-dimensions� �g shared-array-increments� �g make-mapper� �g array-ref� �g
array-set!� �g write-array� �g root� ��� � �� � �g cond� �~� � �}� � �r#P � ��? � �r�P � ��(?PN � �y��� � ���S� � ��� � �t�N � �f (make-shared-array � �r�P � ��N � ���� � �g goops-error� �f 'write-readably(<array>): internal error� ��� � ���PN � �? �r P �g for-each�g dim� �rP ��� ��? � � ������ �
g else�f (list->uniform-array �rP �
f '() �r
P �f (list ��?PN �
� ��� ��� � �g <pair>�g car�? �N � � �g cdr�? �N �� �� � �!g proper?�"g loop�#g ls�$#? �%$ �&g null?�'&# �(g pair?�)(# �*# �+t*N �,}+ �-"* �.�),- �/x'. �0�"%/ �1!0 �2g 1?�3( �4}3 �5tN �6x45 �726 �8g infos�9g �:89 �;g refs�<g ref-stack�=<N �>;= �?17�:> �@}� �A@( �B! �Cf (cons �D2C �Ef (cons* �F
E �G�ABDF �HrGP �IN �J��I �K�J� �Lg set-car!�M� �NL�M �O�N �POPN �Q#* �Rg prev�SR?# �TQS �U}) �Vt#N �WxUV �X}' �Yf .�ZrYP �[�@Z �\#N �]��\ �^�]� �_g set-cdr!�`�R �a�# �b_`a �c�b �d#cPN �ey[�^d �f�Xe �gWf� �hg cons�is#N �jhi8 �k�8j �lg push-ref!�ml#N �ng visiting?�o8 �pno �q�p �r# �srN �t��s �u�t� �v�r �wLav �x�w �yrxPN �z�Tg�kmquy �{g info�|{ �}n{ �~�} ��|~ ��8 ���=; ���?HKPz�� ��� ��g setter��� ��� ��g integer?��g standard-get��g standard-set��g memq��g slot-definition-allocation��g classS��g
each-subclassS���� ��g class-slots��g slot-ref��g getters-n-setters��g get-set-for-each��g slot-definition-accessor��g slot-definition-name��g generic-function-name��g access-for-each��g @@��g %allocate-instance���'� ��9 ��g name��g val���� ��g slot-set!���?�� ����� ��g list��g <object>��g get��g set���� ���? ���� ��� ��g unbound?���� ��}� ���N ����� ����� ����� ��g class-of���? ����� ��� ��g class���� ��� ��f (restore ��r�P ��g
class-name���� ��r�P ��f (��r�P ��g slotdefs��g filter��g slotdef��� ���� ��g� ����� ��g slot-bound?���� ���?� ���?� ��q�N ����� ��x�� ��}� ����� ���� ����� ���� ��� ��&� ��}� ��� ���� ��r�P ��r�P ������ ��� ���� ��y�� ����� ����� ��g aname������ ��g# ��r�P ���� ��q�N ��� ���N ����� ���� ���� ���� ����� ���� ���� ��g� ������ ���� ������ ����PN ��
�� ������ ����� ������ ����� ����������� ��� ��g <class>���? ��r�P ��� ���? ��r�P ��� � f #No read-syntax for <method> defined�� � �g is-a?�' �' �g
<accessor>�' �' � g ensure-accessor�
' �' �g excluded�
g pass-2?�g objects�g pre-defines�g locals�g stand-ins�g post-defines�g patchers�g multiple-bound�g
<environment>�g
make-class�g accessorS�g init-formS�g make-hash-table� = �g
init-thunkS�g
init-valueS�'� �'� �'� � '� �!g class-precedence-list�"'! �#'! �$g class-redefinition�%'$ �&'$ �'g
initialize�(g initargs�)N( �*g next-method�+* �,g get-keyword�-g excludedS�.,-( �/g =>�0g excludees�10 �2g e�32 �4g hashq-create-handle!�5N �6452 �7�36 �870 �9�18 �:./9 �;�: �<+; �=sN �>n=? �?> �@'� �A'� �Bg x�C?NB �Dm=?B �ED �Fg hashq-get-handle�Gg pop-ref!�Hg container�Ig
<object-info>�Js?N �KwJ �LK �M+? �Nq?N �O{J �PO �Qt{ �R}Q �Sg eq?�Tu{ �Ug definingS�VSTU �W= �X&W �Y�VX �ZxRY �[{ �\�Z[ �]�P\ �^xMN] �_^ �`g pass-2S�ag binding-name�bg binding-object�cg pass-1!�dg string->symbol�eg
string-append�ff %o�gg number->string�hg
make-local�ig boolean?�jg name-bindings!�kg append�lg pass-2!�mf (define �nf )
�og
write-define!�pg write-empty-defines!�qg write-definition!�rf (let* (�sf (�tf
(�ug write-let*-head!�vg write-rebindings!�wg newline�xg write-definitions!�yg assq�zg write-patches!�{g write-immediates!�|g write-readables!�}g alist�~g rest�P~���}���g port��g open-output-file���P ���� ��� ��g apply���}�~ ��g
close-port���� ��g
*unspecified*������� ��� ��g
<output-port>��g >=��g length���~ ���� ��~ �����9 ��� ��g uses���� ��g cadr���~ �����9 ���� ���� ��/- ��N� ��� ��c}N ��j}N ��lN ��&� ��}� ��g use-modules��g unquote-splicing���� ���� ���� ��R�P ��wP ��y�� ����� ��{}P ��N ��&� ��xmPN ��f ��z�PN ��y�� ��xmPN ��pPN ��uPN ��f (set! ��N ��v��PN ��x�PN ��f ��z�PN ��f )
��r�P ��y������� ������ ��|}PN ��N ���� ��vm�PN ������������
����� ��� ��P ��g let*��g open-input-file���P ���� ��� ��� ���� ����� ��� ��g module-public-interface��g current-module��g iface��g <input-port>��g make-module��� ���� ��� ��g module-use!��g the-scm-module����� ����� ��g save-module-excursion��$� ��g sexp��g read���P ���� ��� ��g eof-object?���� ��}� ��g eval����� ��"� ��y�� ����� ���"�� ����� ���� ��g
module-map��g var���� ��g variable-ref���� ��h�� ����� ����� �������� ��� �C 5 h(� # ]4
!#5 4& > "