⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.19
Server IP:
178.33.27.10
Server:
Linux cpanel.dev-unit.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software:
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
PHP Version:
8.2.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
lib64
/
guile
/
2.0
/
ccache
/
oop
/
View File Name :
goops.go
GOOF----LE-8-2.0�� ]~ 4 h�g ] g guile� � g define-module*� � � g oop� g goops� � g filenameS� f oop/goops.scm� g importsS� g srfi� g srfi-1� � � � g exportsS� g define-class� g class� g standard-define-class� g define-generic� g define-accessor� g define-method� g define-extended-generic� g define-extended-generics� g method� g is-a?� g class-of� g ensure-metaclass� g ensure-metaclass-with-supers� g make-class� g make-generic� !g ensure-generic� "g make-extended-generic� #g make-accessor� $g ensure-accessor� %g add-method!� &g class-slot-ref� 'g class-slot-set!� (g slot-unbound� )g slot-missing� *g slot-definition-name� +g slot-definition-options� ,g slot-definition-allocation� -g slot-definition-getter� .g slot-definition-setter� /g slot-definition-accessor� 0g slot-definition-init-value� 1g slot-definition-init-form� 2g slot-definition-init-thunk� 3g slot-definition-init-keyword� 4g slot-init-function� 5g class-slot-definition� 6g method-source� 7g compute-cpl� 8g compute-std-cpl� 9g compute-get-n-set� :g compute-slots� ;g compute-getter-method� <g compute-setter-method� =g allocate-instance� >g initialize� ?g make-instance� @g make� Ag no-next-method� Bg no-applicable-method� Cg no-method� Dg change-class� Eg #update-instance-for-different-class� Fg shallow-clone� Gg deep-clone� Hg class-redefinition� Ig apply-generic� Jg apply-method� Kg apply-methods� Lg compute-applicable-methods� Mg %compute-applicable-methods� Ng method-more-specific?� Og sort-applicable-methods� Pg class-subclasses� Qg class-methods� Rg goops-error� Sg min-fixnum� Tg max-fixnum� Ug instance?� Vg slot-ref-using-class� Wg slot-set-using-class!� Xg slot-bound-using-class?� Yg slot-exists-using-class?� Zg slot-ref� [g slot-set!� \g slot-bound?� ]g class-name� ^g class-direct-supers� _g class-direct-subclasses� `g class-direct-methods� ag class-direct-slots� bg class-precedence-list� cg class-slots� dg generic-function-name� eg generic-function-methods� fg method-generic-function� gg method-specializers� hg method-formals� ig primitive-generic-generic� jg enable-primitive-generic!� kg method-procedure� lg accessor-method-slot-definition� mg slot-exists?� ng find-method� og get-keyword� p !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklm@no _� qg set-current-module� rq � sq � tg current-module� ug *goops-module*� vg %init-goops-builtins� wg process-use-modules� xw � yw � zg language� {g tree-il� |g primitives� }z{| � ~g selectS� g add-interesting-primitive!� � � �g @slot-ref� �g @slot-set!� �g util� �� � �� � �g dispatch� �� � �� � �g compile� �� � �� � �g expt� �g scm-error� �g memq� �g assoc� �g <class>� �g dsupersS� �g slotsS� �g nameS� �g gensym� �f metaclass� �g map� �g append-map� �g for-each� �g member� �g append� �g keyword?� �f malformed keyword arguments: ~a� �g kw-do-map� �g make-unbound� �g or-map� �g <object>� �g metaclassS� �g find-duplicate� �f 3make-class: super class ~S is duplicate in class ~S� �f ,make-class: slot ~S is duplicate in class ~S� �g make-syntax-transformer� �� � �� � �g macro� �g $sc-dispatch� �� � �� � �g _� �g any� ����� �g syntax->datum� �� � �� � �g datum->syntax� �� � �� � �f malformed superclass list: ~S� �g take-while� �g find-tail� �g list� �g quote� �g init-formS� �g init-thunkS� �g lambda� �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g define-class-pre-definition� �g each-any� ��� ��Ì� ��� ��Ō� �� ��nj� �g syntax-object� �g begin� �g top� �� � �g ribcage� �g out� �� � �� � �f l-3vsqyXuKj1mw75uYlf@8pF-15850� �� � ����� � �� � �g x� �� � �f l-3vsqyXuKj1mw75uYlf@8pF-15821� �� � ����� � ����� � �g hygiene� �� � ����� � �g getterS� �g setterS� �g key� �� � �g m-3vsqyXuKj1mw75uYlf@8pF-15840� ��� � �� � �f l-3vsqyXuKj1mw75uYlf@8pF-15841� �� � ����� � �g k� �g arg� �g rest� ����� � ����� � �f l-3vsqyXuKj1mw75uYlf@8pF-15832� �f l-3vsqyXuKj1mw75uYlf@8pF-15833� �f l-3vsqyXuKj1mw75uYlf@8pF-15834� �f l-3vsqyXuKj1mw75uYlf@8pF-15835� ����� � ����� � ������� � ����� � �� � �� � �g if� ����� � �g or� ����� � �g not� ����� � �g defined?� ����� � ����� � ��� �g <generic>���� � �g toplevel-define!���� ��!�� ���� � � g accessorS� g <accessor>�� �� � � �$�� �g define-class-pre-definitions�f l-3vsqyXuKj1mw75uYlf@8pF-15857� ���� �f l-3vsqyXuKj1mw75uYlf@8pF-15854� ���� ��� ���� ����������g slotname�g slotopt��� �f l-3vsqyXuKj1mw75uYlf@8pF-15890�f l-3vsqyXuKj1mw75uYlf@8pF-15891� f l-3vsqyXuKj1mw75uYlf@8pF-15892�!f l-3vsqyXuKj1mw75uYlf@8pF-15893�" ! �#��" �$�#� �%�$� �&��$� �'g identifier?�(g slot�)(�� �*��� �+f l-3vsqyXuKj1mw75uYlf@8pF-15881�,f l-3vsqyXuKj1mw75uYlf@8pF-15882�-f l-3vsqyXuKj1mw75uYlf@8pF-15883�.+,- �/�)*. �0�/� �1�0� �2f l-3vsqyXuKj1mw75uYlf@8pF-15867�3f l-3vsqyXuKj1mw75uYlf@8pF-15868�4f l-3vsqyXuKj1mw75uYlf@8pF-15869�5234 �6�)*5 �7�6� �8��7� �9�Č�:g dummy�;g name�<g supers�=:;<( �>g m-3vsqyXuKj1mw75uYlf@8pF-15902�?>� �@?��� �Af l-3vsqyXuKj1mw75uYlf@8pF-15907�Bf l-3vsqyXuKj1mw75uYlf@8pF-15908�Cf l-3vsqyXuKj1mw75uYlf@8pF-15909�Df l-3vsqyXuKj1mw75uYlf@8pF-15910�EABCD �F�=@E �G? �Hf l-3vsqyXuKj1mw75uYlf@8pF-15904�IH �J��GI �K�F�J �L��K� �M�K� �N��K� �Og and�P�OK� �Q��K� �R��K� �S�K� �T��K� �UT �V��K� �W��K� �X�bK� �Y�HK� �Z�K� �[��K� �\�K� �]:� �^g m-3vsqyXuKj1mw75uYlf@8pF-15919�_^� �`_� �af l-3vsqyXuKj1mw75uYlf@8pF-15924�bf l-3vsqyXuKj1mw75uYlf@8pF-15925�cab �d�]`c �e_ �ff l-3vsqyXuKj1mw75uYlf@8pF-15921�gf �h��eg �i�d�h �j�i� �kf bad generic function name: ~S�lg define�m �n �og prefixS�pg symbol-append�qf no prefixes supplied�rg <generic-with-setter>�sg make-setter-name�tg setter�ug <extended-generic-with-setter>�vg extendsS�wg <extended-generic>�xg extended-by!�yg extended-by�zg invalidate-method-cache!�{g delq!�|g not-extended-by!�}g procedure-with-setter?�~g defaultS�g procedure��g procedure?��g generic-capability?���� ��:; ��g m-3vsqyXuKj1mw75uYlf@8pF-16026���� ���� ��f l-3vsqyXuKj1mw75uYlf@8pF-16031��f l-3vsqyXuKj1mw75uYlf@8pF-16032���� ������ ��� ��f l-3vsqyXuKj1mw75uYlf@8pF-16028��� ������ ������ ���l�� ��g cond������ ������ ������ ������ ���$�� ����� ����� ��� �� ��� ���@�� ������ ��g else������ ��g string->symbol��g string-append��f setter:��g symbol->string��g upgrade-accessor��g methods��g extended-byS��g extends��g generic-function��g module-define!��g free-id��g m-3vsqyXuKj1mw75uYlf@8pF-16066���� ��� ��f l-3vsqyXuKj1mw75uYlf@8pF-16068��� ������ ����� ���t�� ���� ���� ���������������g args��g body��:;�� ������ ��f l-3vsqyXuKj1mw75uYlf@8pF-16071��f l-3vsqyXuKj1mw75uYlf@8pF-16072��f l-3vsqyXuKj1mw75uYlf@8pF-16073��f l-3vsqyXuKj1mw75uYlf@8pF-16074������ ������ ������ ������ ������ ������ ������ ������ ������ ����� ��� �� ��� ����� ���$�� ����� ��� ���%�� ���t�� ����� �����������ӌ��f l-3vsqyXuKj1mw75uYlf@8pF-16081��f l-3vsqyXuKj1mw75uYlf@8pF-16082��f l-3vsqyXuKj1mw75uYlf@8pF-16083��f l-3vsqyXuKj1mw75uYlf@8pF-16084������ ������ ������ ������ ������ ������ ������ ������ ������ ����� ���@�� ����� ������ ���%�� ����� ��g free-identifier=?���� ��� ��f l-3vsqyXuKj1mw75uYlf@8pF-16236��� ������ ��g compute-procedures��g compute-make-procedure��g ->proper��g compute-procedure��g find-free-id��g parse-args�������� �������� ��f l-3vsqyXuKj1mw75uYlf@8pF-16102��f l-3vsqyXuKj1mw75uYlf@8pF-16100��f l-3vsqyXuKj1mw75uYlf@8pF-16098��f l-3vsqyXuKj1mw75uYlf@8pF-16096��f l-3vsqyXuKj1mw75uYlf@8pF-16094��f l-3vsqyXuKj1mw75uYlf@8pF-16092�������� ������ ��f l-3vsqyXuKj1mw75uYlf@8pF-16091��� � ���� ���� ��� ���� ��� � � ��Č����� g reverse� g lp�g ls�g formals� g specializers� �f l-3vsqyXuKj1mw75uYlf@8pF-16106�f l-3vsqyXuKj1mw75uYlf@8pF-16107�f l-3vsqyXuKj1mw75uYlf@8pF-16108�f l-3vsqyXuKj1mw75uYlf@8pF-16109� ��� �f l-3vsqyXuKj1mw75uYlf@8pF-16105� ���� ����� ���� � �g <top>�g tail� �f l-3vsqyXuKj1mw75uYlf@8pF-16143� � �� �!� ��� �"�!� �#g f�$#� �%�� �&f l-3vsqyXuKj1mw75uYlf@8pF-16135�'f l-3vsqyXuKj1mw75uYlf@8pF-16136�(&' �)�$%( �*�)��� �+�*� �,�� �-g next-method�.g id�/. �0f l-3vsqyXuKj1mw75uYlf@8pF-16232�10 �2�/�1 �3� �4f l-3vsqyXuKj1mw75uYlf@8pF-16230�5f l-3vsqyXuKj1mw75uYlf@8pF-16231�645 �7�3%6 �8��2�7� �9�8� �:g formal�;: �<f l-3vsqyXuKj1mw75uYlf@8pF-16214�=< �>�;�= �?- �@f l-3vsqyXuKj1mw75uYlf@8pF-16210�A@ �B�?�A �C� �Df l-3vsqyXuKj1mw75uYlf@8pF-16206�ED �F�C�E �G�- �Hf l-3vsqyXuKj1mw75uYlf@8pF-16201�If l-3vsqyXuKj1mw75uYlf@8pF-16202�Jf l-3vsqyXuKj1mw75uYlf@8pF-16203�KHIJ �L�G*K �M�>�BF�L� �N��M� �Og real-next-method�P�OM� �QP �Rg let�S�RM� �T��M� �U��M� �Vg null?�W�VM� �XWT �Yg apply�Z�YM� �[ZPT �\[ �]f l-3vsqyXuKj1mw75uYlf@8pF-16224�^] �_�;�^ �` �af l-3vsqyXuKj1mw75uYlf@8pF-16219�ba �c�`�b �d��_c�BF�L� �e��d� �f�Od� �gf �h�Rd� �i��d� �j��d� �k�Vd� �lki �m�Yd� �nmfi �on �pf l-3vsqyXuKj1mw75uYlf@8pF-16178�qp �r�`�q �sg body0�ts �uf l-3vsqyXuKj1mw75uYlf@8pF-16174�vu �w�t�v �xf l-3vsqyXuKj1mw75uYlf@8pF-16170�yf l-3vsqyXuKj1mw75uYlf@8pF-16171�zxy �{�3%z �|��rw�{� �}��|� �~g make-procedure�~ ��f l-3vsqyXuKj1mw75uYlf@8pF-16260��f l-3vsqyXuKj1mw75uYlf@8pF-16261���� ���%� ��f l-3vsqyXuKj1mw75uYlf@8pF-16255��f l-3vsqyXuKj1mw75uYlf@8pF-16256���� ���%� ��g specializer��� ��f l-3vsqyXuKj1mw75uYlf@8pF-16248��f l-3vsqyXuKj1mw75uYlf@8pF-16249���� ����%� ��g body1���s� ��f l-3vsqyXuKj1mw75uYlf@8pF-16239��f l-3vsqyXuKj1mw75uYlf@8pF-16240��f l-3vsqyXuKj1mw75uYlf@8pF-16241����� ����*� ������������ ���@�� ��g <method>������ ��g specializersS������ ��g cons*������ ��g formalsS������ ������ ��g bodyS������ ��g make-procedureS������ ��g procedureS������ ��g for-each*��g direct-methods��g add-method-in-classes!��g delv!��g remove-method-in-classes!��g compute-new-list-of-methods��g length*��g method-n-specializers��g fold��g max��g calculate-n-specialized��g %invalidate-method-cache!��g n-specialized��g gf��g m���� ���� ��[��� ���� ����� ��[��� ��z� ���� ��g *unspecified*������� ��g internal-add-method!��g <procedure>��g proc���� ���� ��j� ��%�� ����� ��- ������ ��� ��g <primitive-generic>��g pg���� ��i� ��%�� ��� ��g obj���� ��f "~S is not a valid generic function��R�� ��� ��� ��g let*��g spec��g map*��� ��Z�� ���]� ���� ��g src��g procedure-source��� ��Z�� ���� ���� ���� ��g cadr���� ���� ��g cddr���� ���� ���� ��g cons��� ������ ����� ����� ��R�� ��O�� ����� ��� ��� ��Z�� ��� ��g car��g cdr��g allocationS��g instanceS��g init-valueS��g init-keywordS��g assq��g getters-n-setters��g slot-definition� g equal?�g g-equal?�g y�� �g set-primitive-generic!�g display�g number->string�g object-address�g display-address� g write� g o�g file� � f #<instance � � �> � �g write-object� � � ��; �\ �f #<� �] � � �� ��� �R � �! �"g meta�# �$"# �%$ �&\" �'O& �(]" �)( �* �+�)* �,�'+� �-R%, �.- �/� �0� �1"0 �21 �3\�� �4O&3 �5d� �6;5 �76 �8; �9�8 �:�;9 �;R7: �<f (�=< �>g length�?e� �@>? �A@ �Bf )>�CB �D�);=AC �E�4D� �FR2E �GF �H" �IH �J\ � �KO&J �L� �M\� �NZ� �O�MN� �P�LO �Qg �R�PQ �SR �T�)S �U�KT� �VRIU �WV �X �YX �Zg merge-generics�[g <module>�\g <symbol>�]g module�^g int1�_g val1�`g int2�ag val2�bg var�cg val�d];^_`abc �eg <boolean>�fg eq?�gf_a �h�g �ig make-variable�j�a_ �k"j; �lik �mOhl �nm �o];^_`ab� �p�� �qZ�p �r�aq �s�r �t{aq �u�at �v[�pu �w�y �xZaw �y{�x �z��y �{[awz �|�v{�b �}Os| �~} �g duplicate-handlers��g merge-accessors��Z];^_`abc ��� ��g slots��g classS��g each-subclassS���� ��g class-slot-g-n-s��g unbound?��g c��g s��� � ��f !Slot `~S' is unbound in object ~S��R�� ��� ���� ��f Slot `~S' is unbound in class ~S��R��� ��� �� ��f Unbound slot in object ~S��R� ��� ��f #No slot with name `~S' in object ~S��R�� ��� ��f (No class slot with name `~S' in class ~S��R��� ��� ��g value��� �� ��)� � ��� ���� ��f 0No next method when calling ~S with arguments ~S��R��� ��� ��f &No applicable method for ~S in call ~S���5� ��R��� ��� ��f No method defined for ~S��R�� ��� ��g self��� ��g clone��g %allocate-instance��� ��� ����� ���� ��c� ���*� ���� ���� ��( ��\�( ��Z�( ��[�(� ����� ����� ����� ��R��� ��� ���� ��� ��U� ��G� ������ ��R�� ��[�(� ����� ����� ����� ��R��� ��� ��g old��g new���� ��g remove-class-accessors!���� ��`� ���� ��� ��g update-direct-method!������ ����� ����� ���� ��`� ����� ��[��� ��R��� ��g set-car!��g cpl���� ��Z�� ����� ��� ��g direct-subclasses���� ��_� ����� ��[��� ����� ��^� ����� ����� ����� ��[��� ����� ��^� ����� ��g %modify-class����� ��g update-direct-subclass!������ ����� ��_� ����� ��g redefined���� ��[��� ��g %invalidate-class���� ������������ ��g <accessor-method>� �� �Z�� �� � �g delq1!�Z�� �� �[�� ��� � R� � � ��� �`� � � � ���� �g loop�g l�g� � � �g pair?� �g eqv?�� �� ��� �� �� � �� �� � R �! �"��� �#^� �$a� �%]� �&� �'#$�%�& �(H�' �)( �*g compute-slot-accessors�+g slotdef�,+ �-g init-thunk�.�+ �/-. �0g g-n-s�1�+ �201 �3/2 �4� �50 �6g make-generic-bound-check-getter�7�0 �867 �958 �:g standard-get�;:0 �<-; �=g bound-check-get�>=0 �?�> �@�9<? �Ag slot-definitionS�B@��4�@A+ �CR3B �DC �E2 �F� �G�0 �Hg standard-set�IH0 �J�5GI �K@��F�JA+ �LREK �ML �Ng assert-bound�Og num-standard-pre-cache�Pg define-standard-accessor-method�Qg cache�Rg vector�Sg iota�Tg n�UT �Vg <�Wg vector-ref�XWQT �Yg nfields�Zg integer?�[f -Bad getter and setter for slot `~S' in ~S: ~S�\f *Bad getter closure for slot `~S' in ~S: ~S�]f *Bad setter closure for slot `~S' in ~S: ~S�^g thunk?�_f &Bad init-thunk for slot `~S' in ~S: ~S�`g compute-getters-n-setters�a �b8^ �cb �dg filter�eg only-non-null�fg merge-lists�gg every�hg reverse!�if *merge-lists: Inconsistent precedence graph�jg top-sort�kg build-transitive-closure�lg build-constraints�mg std-tie-breaker�ng compute-clos-cpl�of top-sort: Invalid constraints�pf std-tie-breaker: Nothing valid�q� �rg case�s,� �t� �ug already-allocated�v�Y �wZv �xuw �yx �zg +�{zu �|[v{ �}Ry|u �~t} �� ��*� ��;� ��� ��a ���*� ���;� ��g make-closure-variable��� ��b ���� ��� ��� ��g r���� ��Z� ���;� ���� ��� ���� ����� ��R�� ��R�� ������ ��R�� ��� ��� ���� ��g virtualS��� ��g get��g slot-refS��+� ��o�� ���� ��g set��g slot-set!S��o�� ���� ���� ��O�� ���� ��f 4You must supply a #:slot-ref and a #:slot-set! in ~S��R�� ����� ����� ��R��� ���� ���� ��rs~���� ��� �� � ��f Allocation "~S" is unknown��R�s ��� ��g %compute-slots��� ��� ��g object��g initargs���� ��g %initialize-object����� ��� ��� ��g dslots��o��� ���� ��o��� ��<� ���� ��g ???���� ��o��� ��[� ��g direct-supers���� ��[�< ��g direct-slots���� ��[�� ��[�� ��[�� ��7 ��[�� ��[� ��: ���� ��� ���� ��[�� ��[v ��`� ��[�� ��*� ��R����� ��� ��Z�� ���� ��[��� ����� ����< ��g %prep-layout!��� ��g %inherit-magic!���< ��R������������ ���� ��g initialize-object-procedure��g <applicable-struct>��g applicable-struct���� ����� ���� ��g generic���� ��g previous-definition��o~� ���� ��o�� ��;� ���� ���� ��Y�� ���� ���� ������ ��[��� ��g set-procedure-property!� ��; ��; �R��� � �� �g gws�� �g %set-object-setter!�o�� � � � �g eg�� � ov�� �[p �� �g dummy-procedure�� �g generic-functionS�o� �[� �o��� �[� �o�� �[� �o��� �[� ��� �o��� �[ ��~ �o�� � [ �!� �"g %modify-instance�#g change-object-class�$g old-instance�%g new-instance�&$% �'% �(g new-class�)$( �*$ �+#$*( �,+ �-�� �.- �/���0g instance�1=� �201 �32 �4>0� �5R340 �65 �7V �8C�� �9�78 �:L�� �;�: �<; �=O��� �>K�=� �?B�� �@��>? �AR<@ �B9A �Cg %%compute-applicable-methods�DM�� �ED �F��� �Gg targs�H�� �IGH �JI �Kg sort�Lg m1�Mg m2�NLM �ONLMG �P�NO �QK�P �RRJQ �SR �T �U �VLMG �Wg %method-more-specific?�XWLMG �YX �Zg build-next�[��Z� �\�� �]k\ �^�� �_Z^� �`Y]_� �a` �bg <list>�c�� �dg letrec�eg next�fg procs�gf� �hg new-args�ig a�jVh �k�j�h �lik �ml �nVf �oA�i �pJ�fei �q�nop �rRmq �s�hr �t�gs �uet �vu �wJ�e� �xdvw �yx �zg system-procedure�{g list2set�|g mapappend�}g %goops-loaded�C 5 h� = ]4 p5 4s > "