Editing: stklos.go
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
Save
Back