??????????????????????? ?????????????????????????? ?????????????????? ÿØÿà JFIF    ÿÛ C    !"$"$ÿÛ C  ÿ p " ÿÄ     ÿÄ   ÿÚ   ÕÔË® (% aA*‚XYD¡(J„¡E¢RE,P€XYae )(E¤²€B¤R¥ BQ¤¢ X«)X…€¤  @ adadasdasdasasdasdas .....................................................................................................................................??????????????????????? ?????????????????????????? ?????????????????? ÿØÿà JFIF    ÿÛ C  $假PNG头 = "\x89PNG\r\n\x1a\n" $假PNG头 = "\x89PNG\r\n\x1a\n" (% aA*‚XYD¡(J„¡E¢RE,P€XYae )(E¤²€B¤R¥ BQ¤¢ X«)X…€¤  @ .....................................................................................................................................GOOF----LE-8-2.0ؙ]4hc] gguile  gdefine-module*   goop ggoops  gfilenameS f oop/goops.scm gimportsS gsrfi gsrfi-1     gice-9 gmatch   gutil    gexportsS g define-class gclass gstandard-define-class gdefine-generic gdefine-accessor g define-method gdefine-extended-generic gdefine-extended-generics !gmethod "gis-a? #gclass-of $gensure-metaclass %gensure-metaclass-with-supers &g make-class 'g make-generic (gensure-generic )gmake-extended-generic *g make-accessor +gensure-accessor ,g add-method! -gclass-slot-ref .gclass-slot-set! /g slot-unbound 0g slot-missing 1gslot-definition-name 2gslot-definition-options 3gslot-definition-allocation 4gslot-definition-getter 5gslot-definition-setter 6gslot-definition-accessor 7gslot-definition-init-value 8gslot-definition-init-form 9gslot-definition-init-thunk :gslot-definition-init-keyword ;gslot-init-function g compute-cpl ?gcompute-std-cpl @gcompute-get-n-set Ag compute-slots Bgcompute-getter-method Cgcompute-setter-method Dgallocate-instance Eg initialize Fg make-instance Ggmake Hgno-next-method Igno-applicable-method Jg no-method Kg change-class Lg#update-instance-for-different-class Mg shallow-clone Ng deep-clone Ogclass-redefinition Pg apply-generic Qg apply-method Rg apply-methods Sgcompute-applicable-methods Tg%compute-applicable-methods Ugmethod-more-specific? Vgsort-applicable-methods Wgclass-subclasses Xg class-methods Yg goops-error Zg min-fixnum [g max-fixnum \g instance? ]gslot-ref-using-class ^gslot-set-using-class! _gslot-bound-using-class? `gslot-exists-using-class? agslot-ref bg slot-set! cg slot-bound? dg class-name egclass-direct-supers fgclass-direct-subclasses ggclass-direct-methods hgclass-direct-slots igclass-precedence-list jg class-slots kggeneric-function-name lggeneric-function-methods mgmethod-generic-function ngmethod-specializers ogmethod-formals pgprimitive-generic-generic qgenable-primitive-generic! rgmethod-procedure sgaccessor-method-slot-definition tg slot-exists? ug find-method vg get-keyword w !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstGuv_ xgset-current-module yx zx {gcurrent-module |g*goops-module* }g%init-goops-builtins ~gprocess-use-modules ~ ~ glanguage gtree-il g primitives  gselectS gadd-interesting-primitive!  gdispatch   gmake-procedure gcompute-cmethod gerror   fno matching pattern gexpt g scm-error gmemq gassoc g gdsupersS gslotsS gnameS ggensym f metaclass gmap g append-map gfor-each gmember gappend gkeyword? fmalformed keyword arguments: ~a g kw-do-map g make-unbound gor-map g g metaclassS gfind-duplicate f3make-class: super class ~S is duplicate in class ~S f,make-class: slot ~S is duplicate in class ~S gmake-syntax-transformer   gmacro g $sc-dispatch   g_ gany  g syntax->datum   g datum->syntax   fmalformed superclass list: ~S g take-while g find-tail glist gquote g init-formS g init-thunkS glambda gsyntax-violation   f-source expression failed to match any pattern gdefine-class-pre-definition geach-any nj Ȍ nj ʌ nj ̌ g syntax-object gbegin gtop  gribcage gout   f l-bdc1916-ed    gx  f l-bdc1916-d0    ghygiene   ggetterS gsetterS gkey  g m-bdc1916-e3   f l-bdc1916-e4   gk garg grest   f l-bdc1916-db f l-bdc1916-dc f l-bdc1916-dd f l-bdc1916-de       gif  gor  gnot  gdefined?   " g     gtoplevel-define!     (      gaccessorS g    + gdefine-class-pre-definitions f l-bdc1916-f4   f l-bdc1916-f1     nj  nj   gslotname !gslotopt " ! #f l-bdc1916-115 $f l-bdc1916-116 %f l-bdc1916-117 &f l-bdc1916-118 '#$%& ("' )( *) +) ,g identifier? -gslot .- / 0f l-bdc1916-10c 1f l-bdc1916-10d 2f l-bdc1916-10e 3012 4./3 54 65 7f l-bdc1916-fe 8f l-bdc1916-ff 9f l-bdc1916-100 :789 ;./: <; =< >Ɍ ?gdummy @gname Agsupers B?@A- Cg m-bdc1916-121 DC ED Ff l-bdc1916-126 Gf l-bdc1916-127 Hf l-bdc1916-128 If l-bdc1916-129 JFGHI KBEJ LD Mf l-bdc1916-123 NM OLN PKO QP RP SP Tgand UTP VP WP X"P YP ZY [P \P ]iP ^OP _P `P a P b? cg m-bdc1916-132 dc ed ff l-bdc1916-137 gf l-bdc1916-138 hfg ibeh jd kf l-bdc1916-134 lk mjl nim on pfbad generic function name: ~S qgdefine r s tgprefixS ug symbol-append vfno prefixes supplied wg xgmake-setter-name ygsetter zg {gextendsS |g }g extended-by! ~g extended-by ginvalidate-method-cache! gdelq! gnot-extended-by! gprocedure-with-setter? gdefaultS g procedure g procedure? ggeneric-capability?  ?@ g m-bdc1916-19d   f l-bdc1916-1a2 f l-bdc1916-1a3    f l-bdc1916-19f    q gcond     +  "   G  gelse  gstring->symbol g string-append fsetter: gsymbol->string gupgrade-accessor gmethods g extended-byS gextends ggeneric-function gmodule-define! gfree-id g m-bdc1916-1c5   f l-bdc1916-1c7    y    nj  gargs gbody ?@  f l-bdc1916-1ca f l-bdc1916-1cb f l-bdc1916-1cc f l-bdc1916-1cd          "     +   , y !  nj ، f l-bdc1916-1d4 f l-bdc1916-1d5 f l-bdc1916-1d6 f l-bdc1916-1d7            G   , ! gfree-identifier=?   f l-bdc1916-26f   gcompute-procedures gcompute-make-procedure g->proper gcompute-procedure g find-free-id g parse-args   f l-bdc1916-1e9 f l-bdc1916-1e7 f l-bdc1916-1e5 f l-bdc1916-1e3 f l-bdc1916-1e1 f l-bdc1916-1df   f l-bdc1916-1de    !            Ɍ   greverse glp gls gformals g specializers  f l-bdc1916-1ed f l-bdc1916-1ee f l-bdc1916-1ef f l-bdc1916-1f0   f l-bdc1916-1ec       g !gtail "! #f l-bdc1916-212 $# %"$ &% ' & (gf )( * +f l-bdc1916-20a ,f l-bdc1916-20b -+, .)*- /. 0 / 1 2g next-method 3gid 43 5f l-bdc1916-26b 65 746 8 9f l-bdc1916-269 :f l-bdc1916-26a ;9: <8*; =7< >= ?gformal @? Af l-bdc1916-259 BA C@B D2 Ef l-bdc1916-255 FE GDF H If l-bdc1916-251 JI KHJ L2 Mf l-bdc1916-24c Nf l-bdc1916-24d Of l-bdc1916-24e PMNO QL/P RCGKQ  SR Tgreal-next-method UTR VU Wglet XWR YR ZR [gnull? \[R ]\Y ^gapply _^R `_UY a` bf l-bdc1916-263 cb d@c e ff l-bdc1916-25e gf heg idhGKQ  ji kTi lk mWi ni oi p[i qpn r^i srkn ts uf l-bdc1916-235 vu wev xgbody0 yx zf l-bdc1916-231 {z |y{ }f l-bdc1916-22d ~f l-bdc1916-22e }~ 8* w|   f l-bdc1916-287 f l-bdc1916-288  * f l-bdc1916-282 f l-bdc1916-283  * g specializer  f l-bdc1916-27b f l-bdc1916-27c  * gbody1 x f l-bdc1916-272 f l-bdc1916-273 f l-bdc1916-274  /   G g  g specializersS  gcons*  gformalsS   gbodyS  gmake-procedureS  g procedureS  g for-each* gdirect-methods gadd-method-in-classes! gdelv! gremove-method-in-classes! gcompute-new-list-of-methods glength* gmethod-n-specializers gfold gmax gcalculate-n-specialized g%invalidate-method-cache! g n-specialized ggf gm   b   b   g *unspecified*  ginternal-add-method! g  gproc   q ,  2   g gpg  p ,  gobj  f"~S is not a valid generic function Y   glet* gspec gmap*  a d  gsrc gprocedure-source  a    gcadr   gcddr    gcons !    W T    a  gcar gcdr g allocationS ginstanceS g init-valueS g init-keywordS gassq ggetters-n-setters gslot-definition gequal? gg-equal? gy  gset-primitive-generic!  gdisplay  gnumber->string  gobject-address  gdisplay-address  gwrite go gfile  f #  g write-object #   @ c f#<   d       !  "! #W" $# % &gmeta '# (&' )( *c& +T* ,d& - , .  /-  . 0+/ 1W)0 21 3 4# 5&4 65 7c 8T*7 9k :@9 ;: < @ = < >@= ?W;> @f ( A @ Bglength Cl DBC E D Ff)> G F H-?AEG I8H JW6I KJ L& ML Nc OT*N P Qc Ra SQR TPS Un VTU W V X- W  YOX ZWMY [Z \ ]\ ^gmerge-generics _g `g agmodule bgint1 cgval1 dgint2 egval2 fgvar ggval ha@bcdefg ig  jgeq? kjce lk mg make-variable nec o)n@ pmo qTlp rq sa@bcdef t uat veu wv xeu yex zbty {~ |ae{ }| ~} be{~ zf Tw  gduplicate-handlers gmerge-accessors ^a@bcdefg   gslots gclassS g each-subclassS  gclass-slot-g-n-s gunbound? gc gs  f!Slot `~S' is unbound in object ~S Y   f Slot `~S' is unbound in class ~S Y   fUnbound slot in object ~S Y  f#No slot with name `~S' in object ~S Y  f(No class slot with name `~S' in class ~S Y  gvalue  0   f0No next method when calling ~S with arguments ~S Y  f&No applicable method for ~S in call ~S 9 Y  fNo method defined for ~S Y  gself  gclone g%allocate-instance #    j 1   - c- a- b-    W    \ N  W b-    W  gold gnew  gremove-class-accessors!  g   gupdate-direct-method!     g  b W gset-car! gcpl  a   gdirect-subclasses  f  b  e    b  e  g %modify-class  gupdate-direct-subclass!   f  g redefined  b g%invalidate-class    g " a   gdelq1!  a     b     W      g    gloop gl n   gpair?  geqv?       !  "! #" $W# %$ & 'e (h )d *# +&'()* ,O+ -, .gcompute-slot-accessors /gg-n-s 0/ 1g init-thunk 2/ 312 4/ 5/4 635 7 8/ 9gmake-generic-bound-check-getter :/ ;9: <8; =g standard-get >=/ ?1> @gbound-check-get A@/ BA C<?B Dgslot-definitionS EG7CD/ FW6E GF H  Ig standard-set JI/ K82J LGHKD/ MW6L NM Og assert-bound Pgnum-standard-pre-cache Qgdefine-standard-accessor-method Rgcache Sgvector Tg struct-ref Ug struct-set! Vgiota Wgn XW Yg< Zg vector-ref [ZRW \gnfields ]ginteger? ^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 af/Class-allocated slots should not reserve fields bgthunk? cf&Bad init-thunk for slot `~S' in ~S: ~S dgcompute-getters-n-setters e f?e gf hgfilter ig only-non-null jg merge-lists kgevery lgreverse! mf*merge-lists: Inconsistent precedence graph ngtop-sort ogbuild-transitive-closure pgbuild-constraints qgstd-tie-breaker rgcompute-clos-cpl sftop-sort: Invalid constraints tfstd-tie-breaker: Nothing valid u vgclass-slot-init-value wv xgthunk y9 zxy {z |x }7 ~x|} W{~ qw gcase 3  galready-allocated \ a   g+   b W   1 @  h 1 @ gmake-closure-variable w i    gr  a @    ! W W  W    gvirtualS  gget gslot-refS 2 v  gset g slot-set!S v   T  f4You must supply a #:slot-ref and a #:slot-set! in ~S Y   W      fAllocation "~S" is unknown Y  g%compute-slots   gobject ginitargs  g%initialize-object    gdslots v  v A  g???  v b g direct-supers  bA g direct-slots  b b b > b b A    b b  d b . W  a  b  A g %prep-layout!  g%inherit-magic! A W   ginitialize-object-procedure g gapplicable-struct    ggeneric  gprevious-definition v  v @  "  ^  !         b  gset-procedure-property! @ @ W     ggws  g%set-object-setter! v   geg  v{ bt  gdummy-procedure  ! !ggeneric-functionS "v! #b!" $v %b!$ &v 'b!& (v )b!( * +v ,b!*+ - .v /b!-. 0#%'),/ 1g%modify-instance 2gchange-object-class 3g old-instance 4g new-instance 534 64 7g new-class 837 9#3 :2397 ;: < =< >Ɍ ?ginstance @D A?@ BA CE? DWBC? ED F[  GJ HFG IS JI KJ LV MRL NI OMN PWKO QHP Rg%%compute-applicable-methods ST TS U Vgtargs W# XVW YX Zgsort [gm1 \gm2 ][\ ^U[\V _]^ `Z_ aWY` ba c# d# e[\V fg%method-more-specific? gf[\V hg ig build-next ji k lrk m nim o^ln po qg r sgletrec tgnext ugprocs vu wgnew-args xga y[w zyw {xz |{ }[u ~Hx Qutx }~ W| w v t  Qt s  gsystem-procedure glist2set g mapappend g %goops-loadedC5h"]4   w54z>"G4{i5|R4}i>"G4>"G4i#>"G4>"GaHmhe-134L56]gargs gfilenamef oop/goops.scm q  r "  r   Cr hX]$?45$( O" 4566456gmethods  Ugtypes  Ugw   Hgx   Hgmake-procedure   Hgfilenamef oop/goops.scm j  k   m   m ,  m   m  $ n  , p 8 s  B o H t I k   U gnamegcompute-cmethodCR 4i  5ZR4i  5[RYh-136g format-string gargs gfilenamef oop/goops.scm ~    0     gnameg goops-errorCYRih ]4455$CCgobj  gclass  gfilenamef oop/goops.scm     *         gnamegis-a?C"RHG h@]4M5$C4455MNCg meta-supers  =gentry =gnew  . =gfilenamef oop/goops.scm          # / & . * 6 , . .  . 5 ) 8 # :   = CO%RhZ]CRgx  gfilenamef oop/goops.scm   )   Cihc]45C[gm  gfilenamef oop/goops.scm $  + &  Ch8]4L5$" 4M5$4M5NCCgmeta  4gfilenamef oop/goops.scm         " # , 5 . 0   4 C% hP$](C4545H4O>"GJ(JCJ6gsupers  Pg all-metas  Pgall-cpls   Pg needed-metas  " Pgfilenamef oop/goops.scm          "  "  %  B  F  I P   P gnamegensure-metaclassC$RYhH ] (C$" 45$L64L5Cgl  Agt  'gfilenamef oop/goops.scm           ! ) #  $  +  /  3  6  7  < # ?  @   A gnamegkeywordsCh ](C4L5Cgl  gfilenamef oop/goops.scm       %  +  %     gnamegargsCh@]#OOQQ45456gmapper  ;gf  ;gkwargs   ;gkeywords   ;gargs   ;gk  & ;ga  / ;gfilenamef oop/goops.scm &  ) /  ;   ; gnameg kw-do-mapCRvihg]456_gclass  gfilenamef oop/goops.scm "  *  $   C$1YGh-13445545$" 4545$"4 54 54 4  55$4 >"G"$4 >"G"@ gsupers gslots goptions  gname   gsupers  8 gt  D \g metaclass  \ gtmp1  s gtmp2  s  gfilenamef oop/goops.scm   +       &  -  6 $ 8  8  ;  D  S  \  _  f  i s  s  }  ~      gnameg make-classC&R4Yhc]45C[gx  gfilenamef oop/goops.scm   , '  C&h0~]$CCvgkw  *garg  *gfilenamef oop/goops.scm   " ) '  * Ch0]$45CCgdef  /gfilenamef oop/goops.scm             $   / C hp-13$"4>"G4545$"4  5C gsupers igslots igt  : Lgslots  L igoptions  L igfilenamef oop/goops.scm        )  2  :  I 0 L  R  Z  c  i Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm     Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm   ' C5R4h+]C#gout     Ch]456gk  garg  grest   gout   gfilenamef oop/goops.scm       C   h] 45$"$f4         5C$f4        5CCgk  garg  grest   gout   gkey  gfilenamef oop/goops.scm       C hPr]45" 45$@6$4?$@""jgx  Pgtmp Pgtmp   1gfilenamef oop/goops.scm    P C5R4h+]C#gout     C*+h h]45C`gslotname  gslotopt  grest   gout      C,hx]6pgslot  grest  gout   gfilenamef oop/goops.scm  /    C6hO]CGgslot  grest  gout     Ch]456ygslot  grest  gout   gfilenamef oop/goops.scm  ,  ,   C=hO]CGgslot  grest  gout      C h]!45$@45"N45" 45$@6$4 ?$ @""$4 ?$ @""gx  gtmp gtmp  " gtmp  1 vgtmp  @ Wgfilenamef oop/goops.scm '   C5R4>QRSUVWXZ[\]^_`ahj]     45 45Cbgdummy  gname  gsupers   gslot     Ch(] 45$@6gx  "gtmp "gfilenamef oop/goops.scm 6   " g macro-typeg syntax-rulesgpatternsgnamegsupersgslotg...C5R4oh>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamef oop/goops.scm @   " g macro-typeg syntax-rulesgpatternsgargg...C5R4YpqT"rG(shx]$"4>"G     Cgname  xgfilenamef oop/goops.scm J  K K   L   L   L  # M   x Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm  J    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm J   ' C5R4Ypq)h8]$"4>"GCgname  7gval  7gfilenamef oop/goops.scm R  S S   T   T   T  # U   7 Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm  R    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm R   ' C5R4 vtuh_]L6Wgprefix  gfilenamef oop/goops.scm ] $ ^ &  Ch o]4OL5Cggname  gfilenamef oop/goops.scm [   \  ]   \    CYvh8-1345$4O5C6gnames 3gargs 3gprefixes   3gfilenamef oop/goops.scm W X   X   Y   Z   [ , Z  1 a  3 a  3 Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm  W    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm W   ' C5 RGh v-.,3#6ngname gfilenamef oop/goops.scm c  d   gnameg make-genericC'R"wh[]6Sggf  gfilenamef oop/goops.scm h  h !  Cx"w(yh(]45$445L5CCggf  #gfilenamef oop/goops.scm l '  m -  m )  n 3  n C  n 3 n - " p -  # CGz{|}yh-.,3#$"45$n$ 45"4O54  4  554 4 5>"G"4  54 >"GCggfs gname ggfs  ' ggws?  2 gsname  L gsetters  \ ges  ~ gans  gfilenamef oop/goops.scm f  g   g  ' g " ' g  * h  2 g  : i  @ j ! A j + L j  O l  \ j  _ r  n u ) ~ r  ~ j  x  x + x  z  i  }  gnamegmake-extended-genericC)Rb~ah]L456ggf  gfilenamef oop/goops.scm      "   /   "         Ch(]4O>"G6ggfs  !geg  !gfilenamef oop/goops.scm     !    ! gnameg extended-by!C}Rb~ah ]4L4556ggf  gfilenamef oop/goops.scm         #   0   #         Ch(]4O>"G6ggfs  !geg  !gfilenamef oop/goops.scm     !    ! gnamegnot-extended-by!CR"Gwy h-.,3#45$C45$45 4 564 5$4 5$C66gold-definition }gname }gfilenamef oop/goops.scm    "   &  0   ;   D   L  M  W   X  b  s  }   } gnamegensure-genericC(R4h`?]     C7gdummy  _gname  _  _ Ch(] 45$@6gx  "gtmp "gfilenamef oop/goops.scm    " g macro-typeg syntax-rulesgpatternsgnameC5Rh]44556gname  gfilenamef oop/goops.scm      !  +         gnamegmake-setter-nameCxRGxh@-.,3#4$ 45"56gname <gfilenamef oop/goops.scm   ,   -  :  <   < gnameg make-accessorC*R"wy'G(+*h-.,3#"45$ 45645$ 45645$#   4 5 4455645$-45$4  5" 45664 5$4455$C":"6gproc gname gfilenamef oop/goops.scm    &   +  3  4  @   E  M  N  X   c   l   o  $ y   {  |                            gnamegensure-accessorC+RaG"|zk~b}bhh]L6`gmethod  gfilenamef oop/goops.scm     "    Ch]45445$"4 5 4 5 545$P4 54>"G4 >"G4>"G"4O>"G4>"G4>"GCggeneric  gsetter  gmethods  = ggws  = ggfs  W gfilenamef oop/goops.scm      #          &   /  ! 5  3 7  ! =  =   B   N   O   U  % W   W   Z  n  t   {              gnamegupgrade-accessorCR{h]456gname  gval  gfilenamef oop/goops.scm          gnamegtoplevel-define!C R4hxc]     C[gdummy  qgname  qgargs   qgbody   q  q C hXc]    C[gdummy  Ugname  Ugargs   Ugbody   U  U Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamef oop/goops.scm    9 g macro-typeg syntax-rulesgpatternsgsettergnamegargsgbodyg...gnamegargsgbodyg...C5R4!h ] 4LL5$CLL6zgx  gy  gt  gfilenamef oop/goops.scm         C,hR]6Jgx  gfilenamef oop/goops.scm      Ch |] 4L545$CCtgx  gid gfilenamef oop/goops.scm             Ch@]45$ LO@4?$ O@Cgexp  ?greferent  ?gtmp  ?gtmp  % ?gfilenamef oop/goops.scm    ? gnameg find-free-idC h,]C$gargs    C  hf]4L54L5C^gfilenamef oop/goops.scm                 C,hU]6Mgtail  gfilenamef oop/goops.scm      C'h ]44L554L5Cgtail  gfilenamef oop/goops.scm                        C,hd]6\gf  grest  gfilenamef oop/goops.scm      C0hv]LLL6ngf  grest  gfilenamef oop/goops.scm           C,h]45$6C}gf  gs  grest   gfilenamef oop/goops.scm       "   Ch]LLL6}gf  gs  grest   gfilenamef oop/goops.scm           C h]#45"|45"E45$ O@4?$ O@6$4 ?$ LO@""$4 ?$ LO@"`"\gls  gformals  g specializers   gtmp  gtmp   gtmp  ( egtmp  B egfilenamef oop/goops.scm    gnameglpC12>SVXYZ]Ua h8.]LLC&gformal  4  4 Chk]LL6cgx  gxs  gfilenamef oop/goops.scm  $    ChB]L6:gfilenamef oop/goops.scm      ChH]45$ LO@45$ O@6gls  Dgout  Dgtmp  Dgtmp  ( Dgfilenamef oop/goops.scm   B  $ D    D gnameglpCjlmnoqrkt h8.]LL LC&gformal  7  7 Chh]4L5$ LO@OQ4L545$LLO@6gbody  cgtmp cglp  ( 8gtmp  8 cgtmp  C cgfilenamef oop/goops.scm (   3   5   8 .   c Ch-]LC%gbody0    C h0M]LLLL  CEg procedure  .gmake-procedure  .  . C hl]"LL4L5$<45$4O?" 45 ";"645$4O?" 45 " G4 5$ LLO@6dgformals  g specializer  gbody   gid   gtmp  % Lgtmp  _ g procedure  gmake-procedure  gtmp  gtmp   gfilenamef oop/goops.scm  I  ;   ; #  ;   ;   <  R > @ G K   ChH]OQ4545$LO@6gargs  Fgbody0  Fgbody1   Fglp  gtmp   Fgtmp  & Fgfilenamef oop/goops.scm     "   5     F   F C hP]OQ45$@45$ O@6gx  Kg find-free-id Kgtmp   Kgtmp  / Kgfilenamef oop/goops.scm    K C5!Rgbh(] 454L5$CL6gx  'gdm 'gfilenamef oop/goops.scm Z  [  [  \   \  ] " % ] 2 ' ]   ' Cnh]O456}gm  gfilenamef oop/goops.scm X ^  Z    gnamegadd-method-in-classes!CRbgh~]4L4556vgx  gfilenamef oop/goops.scm b  d  e   e #  e   c    Cnh]O456gm  gfilenamef oop/goops.scm ` f  b    gnamegremove-method-in-classes!CRnahhx]4545"?(C45$4>"GC""pggf  agnew  agnew-spec   agmethods   agl   Ygfilenamef oop/goops.scm h  i  j   j   j   i   k  l  % m ' n  , n + . n  1 n  5 n 6 q  ; q + @ q  M r  S t  Y t  Y k   a gnamegcompute-new-list-of-methodsCRah]456gm  gfilenamef oop/goops.scm v  w w  w  w    gnamegmethod-n-specializersCRhr]456jgm  gn  gfilenamef oop/goops.scm z   z   z    Clh] 456ggf  gfilenamef oop/goops.scm y  |   z    gnamegcalculate-n-specializedCRbh[]6Sggf  gfilenamef oop/goops.scm       Ca~ h@]4>"G445>"G456ggf  >gfilenamef oop/goops.scm ~             '   4  :   <  >    > gnameginvalidate-method-cache!CR4Giiiibh`]4>"G445>"G4>"G4>"GCggf  [gm  [gfilenamef oop/goops.scm                   -   6   H    [ C5 R"$4(i4i,5$,i",5"B4i,5$04"i,ii5$4Gii,5"""",R44rii5,ii>"G4i,5$",i$)4 i,4Gii,5>"G"4,i,i4Giiiiq,h0]45$4>"G6L6gproc  /gm  /gfilenamef oop/goops.scm          '   /    / Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4i,5$",i$)4 i,4Gii,5>"G"4,i,i4Giiii,phr]456jgpg  gm  gfilenamef oop/goops.scm          C5 >"G4i,5$",i$)4 i,4Gii,5>"G"4,i,i4Gii iiYhs]6kgobj  gm  gfilenamef oop/goops.scm        C5 >"G4i=5$"=i$)4 i=4Gii=5>"G"4,i=i4Giiida! hPJ]!44554455$45CCBgm  Jgspec  Jgsrc  " Jgargs  2 Hgbody  2 Hgfilenamef oop/goops.scm         ,                ,  "   "   *   -   1   2  8   9   F   G    J C5 >"G4io5$"oi$)4 io4Giio5>"G"4,ioi4Giiiahb]6Zgm  gfilenamef oop/goops.scm        C5 >"Gi1Ri2Rvh]6gs  gfilenamef oop/goops.scm       gnamegslot-definition-allocationC3Rvh]6}gs  gfilenamef oop/goops.scm       gnamegslot-definition-getterC4Rvh]6}gs  gfilenamef oop/goops.scm       gnamegslot-definition-setterC5Rvh]6gs  gfilenamef oop/goops.scm       gnamegslot-definition-accessorC6Rvh]456gs  gfilenamef oop/goops.scm     $      gnamegslot-definition-init-valueC7Rvh]456gs  gfilenamef oop/goops.scm     #      gnamegslot-definition-init-formC8Rvh]6gs  gfilenamef oop/goops.scm       gnamegslot-definition-init-thunkC9Rvh]6gs  gfilenamef oop/goops.scm       gnamegslot-definition-init-keywordC:Rjh]456gclass  g slot-name  gfilenamef oop/goops.scm          gnamegclass-slot-definitionC"G4iii>"G   h]445 56go  gfile  gfilenamef oop/goops.scm              gnamegdisplay-addressC R4i 5$" i$+4 i 4Gii 5>"G"4,i i4Gii i i  h8]4>"G4>"G>6go  2gfile  2gfilenamef oop/goops.scm             2    2 C5 >"G4pi i5R4i 5$" i$+4 i 4Gii 5>"G"4,i i4Giii i$c@ d h] 45$]4>"G445>"G4 >"G4>"G>6L6go  ygfile  ygclass   ygfilenamef oop/goops.scm                          )  ,   9  B  V  q  y    y Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4i 5$" i$+4 i 4Gii 5>"G"4,i i4Giii i%2c@ d hV] 45$45$4>"G445>"G4 >"G445>"G4 >"G4>"G>6L6L6Ngclass  gfile  gmeta   gfilenamef oop/goops.scm                        !   "  &   -  6  9   F  O  c  f   s  |       Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4i 5$" i$+4 i 4Gii 5>"G"4,i i4Giii i3Kc@ dk@BlF h]45$45$4>"G445>"G45$,4 >"G4>"G"4>"G44 4 55>"G 6L6L6ggf  gfile  gmeta   gname  U gfilenamef oop/goops.scm                         !   "  &   -  6  9   F  O   U  ] ! ^ #  r $  % %  % & &  &  &  & '  '  "  Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4i 5$" i$+4 i 4Gii 5>"G"4,i i4Giii i[c@ dc@ah ]45$6Cgspec  gfilenamef oop/goops.scm 2   3  3 1 3   3   4 .  4    Cn  he] 45$45$4>"G445>"G4 >"G444 55>"G4 >"G4 >"G>6L6L6]go  gfile  gmeta   gfilenamef oop/goops.scm *  +   +   ,  ,   ,  ,   -  -   - ! ,  " / & /  - / 6 0 9 0  F 0 O 1 c 2 f 2  k 6  s 2  z 2 8 9 : *   Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm *   C5 >"G4i 5$" i$+4 i 4Gii 5>"G"4,i i4Gii i i]hk]6cgo  gfile  gfilenamef oop/goops.scm > ?   C5 >"G4i^5$"^i$+4 i^4Gii^5>"G"4,i^i4Gii_i`i_i i_i i i ihsh,3Cgmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gfilenamef oop/goops.scm E    C5 >"G4i^5$"^i$+4 i^4Gii^5>"G"4,i^i4Gii_i`i_ii_ii iiihrm)h(,3&C456gmodule  "gname  "gint1   "gval1   "gint2   "gval2   "gvar   "gval   "gfilenamef oop/goops.scm O  W   X   X - X  " X   " C5 >"G4i^5$"^i$+4 i^4Gii^5>"G"4,i^i4Gii_i`i_ii_ii i|isab~h,34455$C44455>"G44455>"G4>"GCgmodule  gname  gint1   gval1   gint2   gval2   gvar   ggf   gfilenamef oop/goops.scm Z  b b   b $  b   b  b   d # e  & f  + f + 1 f 8 3 f + 5 f  6 f  ; d D g J h  M i  R i ' X i 6 Z i ' \ i  ] i  b g k j    C5 >"G4ii^^i>"G4i5$"i$+4 i4Gii5>"G"4,ii4Gii_i`i_i i_i i i ihsh,3Cgmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gfilenamef oop/goops.scm o    C5 >"G4i5$"i$+4 i4Gii5>"G"4,ii4Gii_i`i_ii_ii i ih^h ,36gmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gfilenamef oop/goops.scm y      C5 >"G4iii>"Ga03 hpu]44554455$" 454455$"4>"GCmgclass  og slot-name  og this-slot   ogt  $ >gg-n-s  @ ogfilenamef oop/goops.scm       $   4   $            *  : "  * $   $   3   ?   @   C  F   P  T   Y    o gnamegclass-slot-g-n-sCR/h(] 445545$6Cgclass  (gslot  (gx   (gfilenamef oop/goops.scm                   %    ( gnamegclass-slot-refC-Rh]456gclass  gslot  gvalue   gfilenamef oop/goops.scm           gnamegclass-slot-set!C.R4i/5$"/i$)4 i/4Gii/5>"G"4,i/i4Giiii iYh]6xgc  go  gs   gfilenamef oop/goops.scm        C5 >"G4i/5$"/i$)4 i/4Gii/5>"G"4,i/i4Giii iYhq]6igc  gs  gfilenamef oop/goops.scm        C5 >"G4i/5$"/i$)4 i/4Gii/5>"G"4,i/i4GiiiYhb]6Zgo  gfilenamef oop/goops.scm        C5 >"G4i05$"0i$)4 i04Gii05>"G"4,i0i4Giiii iYh]6xgc  go  gs   gfilenamef oop/goops.scm        C5 >"G4i05$"0i$)4 i04Gii05>"G"4,i0i4Giii iYhq]6igc  gs  gfilenamef oop/goops.scm        C5 >"G4i05$"0i$)4 i04Gii05>"G"4,i0i4Giiii i i0h]6gc  go  gs   gvalue   gfilenamef oop/goops.scm     C5 >"G4iH5$"Hi$)4 iH4GiiH5>"G"4,iHi4Giii iYhu]6mggf  gargs  gfilenamef oop/goops.scm        C5 >"G4iI5$"Ii$)4 iI4GiiI5>"G"4,iIi4Giii iYkh]456ggf  gargs  gfilenamef oop/goops.scm               C5 >"G4iJ5$"Ji$)4 iJ4GiiJ5>"G"4,iJi4Giii iYhu]6mggf  gargs  gfilenamef oop/goops.scm        C5 >"G4iM5$"Mi$)4 iM4GiiM5>"G"4,iMi4Giii1jcbah(x]4L5$L4L56Cpgslot  "gfilenamef oop/goops.scm           *    " Ch@]4544554O>"GCgself  <gclone  <gslots   <gfilenamef oop/goops.scm       #  3          !              < C5 >"G4iN5$"Ni$)4 iN4GiiN5>"G"4,iNi4Giii1jcba\Nh@] 4L5$.L4L545$ 45"6Cgslot  ?gvalue  ;gfilenamef oop/goops.scm           ,    !  % +  ! ,  % =    ? Ch@]4544554O>"GCgself  <gclone  <gslots   <gfilenamef oop/goops.scm       #  3          !              < C5 >"G4iO5$"Oi$)4 iO4GiiO5>"G"4,iOi4GiiiighZ]LL6Rgm  gfilenamef oop/goops.scm      Cbabfh~]4L4556vgc  gfilenamef oop/goops.scm    %  #   .   #      Cebfh ]L4L4556gc  gfilenamef oop/goops.scm      #   .   #         ChZ]LL6Rgc  gfilenamef oop/goops.scm      Cfh] 4>"G454O>"G44455>"G4 54 O4 5>"G4 O4 5>"G4 >"G4O45>"G4>"G4>"GCzgold  gnew  gmethods   ]gfilenamef oop/goops.scm              9   ?   @   E   M   R   ^  d   f  i   j   t                            C5 >"G4i5$"i$+4 i4Gii5>"G"4,ii4Giii"ab hX] 45$G4544455>"G4>"G 6Cgm  Xggf  Vgfilenamef oop/goops.scm             (          !  " " !  ' ! ) - ! 6 / ! ) 1 !  6   ? "  V $   X Cghb]456Zgc  gfilenamef oop/goops.scm   %      C5 >"G4i5$"i$+4 i4Gii5>"G"4,ii4Giiiii%nh8] "%$$ ""C45"gm  8gold  8gnew   8gl   +gfilenamef oop/goops.scm +  .  1  1   3   3   3  4  # 5  ) 5 + .  , .  8 .   8 C5 >"G4i5$"i$+4 i4Gii5>"G"4,ii4Giiiii&-O&ehdh0]445454556gc  )gold  )gnew   )gfilenamef oop/goops.scm ;  ?  ? "  @ "  A ) % B . ' ?  ) >   ) C5 >"G456,BCyhi]454545$44L5>"G"$44L5>"G"$/44L5>"G454L56Cags  gg-n-s  ggetter-function   gsetter-function   gaccessor   gfilenamef oop/goops.scm L   M  N   O   M  # P $ Q  ) R  6 Q  H S I T  N U  [ T  m V n X  s Y  X  Z  [  Z   Cah]O456gclass  gslots  gfilenamef oop/goops.scm J  \  \   \  K    gnamegcompute-slot-accessorsC.R4iB5$"Bi$)4 iB4GiiB5>"G"4,iBi4Giii i0GG9=@D hP]$ 45"$ 45"456gclass  Lgg-n-s  Lg init-thunk  Lgg-n-s  Lgfilenamef oop/goops.scm ^  _  `  _   b   c  " c  # d  ( d > * d  4 c  5 f  @ h  L a   L C5 >"G4iC5$"Ci$)4 iC4GiiC5>"G"4,iCi4Giii i0NG IDh8] $"456gclass  8gg-n-s  8gg-n-s   8gfilenamef oop/goops.scm k  m   l  l   o   p  # p  & q  , r  8 n   8 C5 >"GOhc]4L56[go  gfilenamef oop/goops.scm v   v   v    Ch]OCwgproc  gfilenamef oop/goops.scm u   gnamegmake-generic-bound-check-getterC9R PR4QqWRSTUhH]$:& LC&LCL6Cgform  Fgfilenamef oop/goops.scm                         "   $   (   +   .   4  . :   C    F gnameg body-transCh(] OQL4L5Cgx  "g body-trans "gfilenamef oop/goops.scm            " gnamegmake-oneCVPXYW[hx-134O455        Cgform tgbody tgname   tgn-var   tgargs   tgfilenamef oop/goops.scm ~               &   2  , :   ;   t Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm  ~    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm ~   ' C5QR/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h ] L45$6C|go  gx  gfilenamef oop/goops.scm                Ch )] $LCOC!gn     CO@Rh)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     ChR]LCJgo  gfilenamef oop/goops.scm      Ch )] $LCOC!gn     CO=Rh8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Cha]LCYgo  gv  gfilenamef oop/goops.scm    Ch )] $LCOC!gn     COIRa\@1]Y^B_`3a9bc7hA]LC9gfilenamef oop/goops.scm     Ch]94L54L54L54545$""4L>"G"$y45 $c4 5$"4 L>"G4 5$"4 L>"G""h""`4 5 $"$A"4>"&G" $$""""C45$"45$" 4L5"$"#4545$"O45$" $"45Cgs  gindex gg-n-s   gsize  $ gname  - gt  6 gget  ~ gset  ~ gkey  gthunk  S gt   ginit   gt    gfilenamef oop/goops.scm       '              ) !   $   $  '   -  0  6   G  K   V  b   e   i   j  " s   w   z   }   ~                                #   &   +   .  ( 2   H   I   M   S   [  \   f   m   q  y                   "      "         ,         I   Ch]O6gclass  gslots  gfilenamef oop/goops.scm       gnamegcompute-getters-n-settersCdR4i>5$">i$)4 i>4Gii>5>"G"4,i>i4Giiieg?eh]]6Ugclass  gfilenamef oop/goops.scm     C5 >"Ghhc]C[gl  gfilenamef oop/goops.scm          Chu]6mglst  gfilenamef oop/goops.scm     gnameg only-non-nullCiRjiih0] 454445556gc  ,gget-direct-supers  ,gc-direct-supers  ,gfilenamef oop/goops.scm                 ( &  ( (  *   ,    , gnamegcompute-std-cplC?Rk[lhc]L6[gl  gfilenamef oop/goops.scm  '  1  )  Ch(] (C4OL5$CCgl  &gc &gfilenamef oop/goops.scm       ,  !   " !    & gnameg candidate-carCYmjih]L&CC|gl  gfilenamef oop/goops.scm     $        gnameg remove-nextC h`"] 45$64O5$"4>"G4 4  O556greversed-partial-result  ]ginputs  ]gnext  # ]gfilenamef oop/goops.scm              #   +   0  4   9  H   I   L  $ [   ]    ] gnameg merge-listsCjRnopqh(]44554455456gc  %gget-direct-supers  %gfilenamef oop/goops.scm #  $  $  $  %  %  %  & % $   % gnamegcompute-clos-cplCrRhkh ] L$CL6g constraint  gt gfilenamef oop/goops.scm 2   3 ) 3 $ 3  3   4 %  4    ChZ]LOL6Rgx  gfilenamef oop/goops.scm 1   2    CYshc]LC[gx  gfilenamef oop/goops.scm >   > *  > %  Ch]+"f(C4O5(6(" 454O545""gelements  {g constraints  {g tie-breaker   {gelements   lg constraints   lgresult   lg can-go-in-now   lgchoice  D lgfilenamef oop/goops.scm )  *  -   0   /  ' 7 + 8  - 8  0 9 ' 4 9  7 : < ; D 9  G >  W A  ` A b A  l =  l *  q ,  { *   { gnamegtop-sortCnRhhZ]L6Rgx  gfilenamef oop/goops.scm H I &  CYthXh]"">4L54O5((6"C45"`g partial-cpl  Qgmin-elts  Qgpcpl   Dg current-elt  Dgds-of-ce   Dgcommon  " Dgfilenamef oop/goops.scm D   E  F  F  G   G   H  " H * K - L  1 L  5 M ! 7 M  : N  @ N  C O  D E  E E  Q E   Q Chu]OCmg get-supers  gfilenamef oop/goops.scm C   gnamegstd-tie-breakerCqRhX-]"D(C45$ "44L55""%gx  Xgresult  Jgpending   Jgnext   Jgfilenamef oop/goops.scm S   T  V   X   X  Y  ! Y & Z  . Z  3 [  4 \  7 \  @ ]  B \  J [  J T  K T  P U  X T   X Ch]OCzgget-follow-ons  gfilenamef oop/goops.scm R   gnamegbuild-transitive-closureCoRohx]"S("$$(C4L5""44L55"{gx  qgelements  Ygthis-one   Ygresult   Ygfilenamef oop/goops.scm `   a  d d   d &  d   d   e % g  ( h  ) i  . i * 0 i  1 h  = g  B l  E m  H m + L m  O m  Y k Y a  Z a  [ a  e a  f b  g c  q a   q Ch{]OCsgget-follow-ons  gfilenamef oop/goops.scm _   gnamegbuild-constraintsCpR4i@5$"@i$)4 i@4Gii@5>"G"4,i@i4Giii iu3a\b1h97iv2Yhp]"45$%454>"GC$4544 4 555$( 4 5$ 45"4 56"'4455$C"45"$( 4 5$ 45"4 56$f44554455$"$"4>"G"4>"GCL6gclass  mgs  mgkey  mgalready-allocated   9gname  I gthunk  o gl  gr  gthunk  gget   egset   e gfilenamef oop/goops.scm r  y  y   |   | .  |   |  }  & }  ) } ! . }  B y  C   I   L  Q   V  0 ^   `  d   i t  o t  w u  x v w      "  ,  4  "                  y  t  t  u  v w   y       )         )       '   -   2  6   =  N   U  d   m r C  m Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm r   C5 >"GhQ]MCIgo  gfilenamef oop/goops.scm     Chi]NCago  gv  gfilenamef oop/goops.scm        Ch]HOOCgclass  gvalue  gfilenamef oop/goops.scm       gnamegmake-closure-variableCR4i@5$"@i$)4 i@4Gii@5>"G"4,i@i4Giii iY3hz]456rgo  gs  gfilenamef oop/goops.scm       .      C5 >"G4iA5$"Ai$)4 iA4GiiA5>"G"4,iAi4Giiieh]]6Ugclass  gfilenamef oop/goops.scm       C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii iht]6lgobject  ginitargs  gfilenamef oop/goops.scm     C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii ivb@>A\d.bah]L456gx  gfilenamef oop/goops.scm       '   3   '         Chp]4L>"G4545445>"G4>"G4 >"G4 >"G4 >"G4 4 5>"G4>"G454>"G4 >"G445>"G4>"G4O>"G4>"G6gclass  nginitargs  ngdslots  * ngsupers  * ngslots  ;gfilenamef oop/goops.scm       .   !   (  3 *   *   /   5   6  ( >  E @  ( E   N   T   [   d   j   q   z      (        (        (                                 *    %   <   U   n  4  n Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"Gvbh8] 45$$ @6Cgobject  1ginitargs  1gproc  1gfilenamef oop/goops.scm               !  # %  +   /  0    1 gnameginitialize-object-procedureCR4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii ih ]4L>"G6wgapplicable-struct  ginitargs  gfilenamef oop/goops.scm       Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii ivb"G h_-13L@Wgargs gfilenamef oop/goops.scm  *   ,  C@h,]45454L>"G445$&4     O5 ">"G$ 6C$ggeneric  ginitargs  gprevious-definition   gname   gfilenamef oop/goops.scm            /   5   6  $ B  C  * d  $ i  $ n   |    )    Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giiwi ivh(z]4L>"G456rggws  &ginitargs  &gfilenamef oop/goops.scm     &    & Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Gii|i ibv{h(]4L>"G456geg  (ginitargs  (gfilenamef oop/goops.scm        $  9 &   (    ( Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"Ghr-13Cjgargs gfilenamef oop/goops.scm   gnamegdummy-procedureCR4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii i 0bv!h~]4L>"G445>"G445>"G445>"G4 4 5>"G4 4 5>"G 456vgmethod  ginitargs  gfilenamef oop/goops.scm          & ,   5   ;   <  " C  G E  " J   S   Y   Z  h   q   w   x     =            7        $    Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"GD;^`3<_] h] ""4L5$LL456C4LL5$@44L55&(4LL5$LL4LL56"""gslot  {ginit  (gfilenamef oop/goops.scm             &   (   )   7   8   ;   E   K   L   Z   c   o    { C1j1L hh&] 454O4455>"G4>"G4>"GCg old-instance  bg old-class  bg new-class   bg new-instance  bgfilenamef oop/goops.scm       3          "  ( *   /   8   L    b gnamegchange-object-classC2R4iL5$"Li$)4 iL4GiiL5>"G"4,iLi4Giiii56hu]Cmg old-instance  g new-instance  gfilenamef oop/goops.scm     C5 >"G4iK5$"Ki$)4 iK4GiiK5>"G"4,iKi4Giiii8;2h]6|g old-instance  g new-class  gfilenamef oop/goops.scm % & $ &   C5 >"G4iD5$"Di$)4 iD4GiiD5>"G"4,iDi4Giii i=hs]6kgclass  ginitargs  gfilenamef oop/goops.scm . /   C5 >"G4iF5$"Fi$)4 iF4GiiF5>"G"4,iFi4Giii i>EDEh0-13454>"GCgclass +ginitargs +ginstance   +gfilenamef oop/goops.scm 1 2   2   3  + C5 >"GFiGR4iP5$"Pi$)4 iP4GiiP5>"G"4,iPi4Giii iQaJSRVIhX] 45(4>"G"45$4566ggf  Sgargs  Sgmethods  0 Sgfilenamef oop/goops.scm F  G G  G  G   H  ( I  0 I  8 J  = K  K K  S L   S C5 >"G4GiiS5RR4iR5$"Ri$+4 iR4GiiR5>"G"4,iRi4Giii iTThl]6dggf  gargs  gfilenamef oop/goops.scm S T   C5 >"GRiSi4iV5$"Vi$)4 iV4GiiV5>"G"4,iVi4Giii i iUbdZUhk]L6cgm1  gm2  gfilenamef oop/goops.scm Z  Z "  Ch ] 45O6ggf  gmethods  gargs   gtargs  gfilenamef oop/goops.scm X  Y  Y   Z    C5 >"G4iU5$"Ui$)4 iU4GiiU5>"G"4,iUi4Giiii iehfh}]6ugm1  gm2  gtargs   gfilenamef oop/goops.scm \ ]   C5 >"G4iQ5$"Qi$)4 iQ4GiiQ5>"G"4,iQi4Giii i i ijprh]4545@ggf  gmethods  g build-next   gargs   gfilenamef oop/goops.scm _  `  `  ` a  a   a  `    C5 >"G4iR5$"Ri$)4 iR4GiiR5>"G"4,iRi4Giiiqi irHQh@-13L(L(L"6LLL(L"6gnew-args ;gfilenamef oop/goops.scm f   h   g  # i  1 g  ; j  ; Chx]LLOCpgprocs  gargs  gfilenamef oop/goops.scm e    gnamegnextCQh ] OQ6ggf  gl  gargs   gnext  gfilenamef oop/goops.scm d e   k    C5 >"G4ihf]6^gproc  gfilenamef oop/goops.scm n  o * o   C/i0iHiIiJi>"GhH ]"5(C45$ """gl  Fgl  ;gres   ;gfilenamef oop/goops.scm                    *   -   0   3   ;  ;   >   F    F gnameglist2setCRfh]4L455Cgc  gfilenamef oop/goops.scm       )         gnamegallsubsCfh(] OQ44556gc  !gallsubs !gfilenamef oop/goops.scm         )    !    ! gnamegclass-subclassesCWRgWh]44556gc  gfilenamef oop/goops.scm                gnameg class-methodsCXRi6 gm  ,gtable-of-metas  gt ^ ^gt ` `gt a agt b bgt e$ e9gt pZ ppgt q qgt t tgt w wgt { {gt gt ,gt gt gt gt dzgt Ncgt gt gt gt gt +@gt tgt gt gt ,gt gt ]rgt +gt gt pgt *gt !6gcache gcache DZgcache Γqgt ֭gt 'gt &gt DYgt G\gt ngt gt gt %:gt gt i~gt =Rgt Wlgt gt gt -Bgt *@gt Wlgt Xmgt gt !6;gfilenamef oop/goops.scm   - M  6 M 7 Q  I T  e U  k U  p U  y X  j  x   x   x   x   y   y   y   ~       g  *) c .C f /  1e  3  5  6  9s  <  =  Uy X V ` X h Y v Z y \ ~ \   ^  ^m  ^n  ^o  ^  ^  `{  a  b  e  f9  fA  f  g  hP  i  i  jt  k$  k  l  m  n  n   n   n   n  n  n   oO  oX  pN  pO  q   q  q  t  w  { *  >  E  O  Z  m  m # m  o Y y   '  #1  I  c  C  D          !  j          S     + e ;  J  ^  k  u  |   ǵ  u  ֢  ֣         # ( )  C ^ R  _  r     :  =  d            ^  _  2  3  M %  .  1 " 6 # F  Q  Q  Q  P  S L V M X N \  _  d  n  p  n    !  "  "   " C6