GOOF----LE-8-2.0l( ] a 4 h� ] g guile� � g define-module*� � � g oop� g goops� g dispatch� �
g filenameS� f oop/goops/dispatch.scm� g importsS�
�
� g util� � � g system� g base� g target� � � � g exportsS� g memoize-method!� � g set-current-module� � � g current-module� g *dispatch-module*� g gensym� !f a� "f t� #g append� $# � %# � &g rest� 'g let� (g map� )g class-of� *f p� +g if� ,g and� -g apply� .& � /g assq-ref� 0g eq?� 1f c� 2g
cache-miss� 3g cons*� 4g list� 5g emit-linear-dispatch� 6g make-vector� 7f g� 8g
vector-length� 9g lambda� :g cdr� ;g case-lambda� <g car� =g with-target� >g
%host-type� ?g compile� @? � A@? � B@? � Cg envS� Dg fromS� Eg scheme� Fg optsS� Gg
partial-eval?S� Hg cse?S� IGH � Jg args� KJ � Lg max� Mg compute-dispatch-procedure� Ng
timer-init� Og slot-ref� Pg effective-methods� Qg slot-set!� Rg procedure� Sg cache-dispatch� Tg delayed-compile� Ug
n-specialized� V ) � W ) � Xg compute-cmethod� Y
X � Z
X � [g memoize-effective-method!� \g compute-applicable-methods� ]g %compute-applicable-methods� ^g no-applicable-method� _g set-procedure-property!� `g system-procedure�C 5h8! � ]4
5 4 > "