GOOF----LE-8-2.0v2]i4h_] gguile  gdefine-module*   goop ggoops gdescribe  gfilenameS foop/goops/describe.scm gimportsS    gice-9 gsession   gformat    gexportsS  gset-current-module   gdefined?     gtoplevel-define!   !  "gmake # " $ " %g  & % ' % (gnameS )g add-method! * ) + ) ,g - , . , /g specializersS 0g 1gformalsS 2gx 32 4gbodyS 5f~s is  652 7gcond 8ginteger? 982 :f an integer ;: <9; =greal? >=2 ?fa real @? A>@ Bgcomplex? CB2 Dfa complex number ED FCE Ggnull? HG2 If an empty list JI KHJ Lgboolean? ML2 Nfa boolean value (~s) Ogif Pgquote Qgtrue RPQ Sgfalse TPS UO2RT VNU WMV Xgchar? YX2 Zfa character, ascii value is ~s [g char->integer \[2 ]Z\ ^Y] _gsymbol? `_2 afa symbol ba c`b dglist? ed2 ffa list gf heg igpair? ji2 kgcdr lk2 mil nfan improper list on pfa pair qp rOmoq sjr tgstring? ut2 vgeqv? wf xv2w yfan empty string zy {fa string of length ~s |g string-length }|2 ~{} Oxz~ u gvector? 2  P v2 fan empty vector  fa vector of length ~s g vector-length 2  O  g eof-object? 2 fthe end-of-file object   gelse fan unknown object (~s) 2  7<AFKW^chs f.~%  g *unspecified* 6 gmake-procedureS g procedureS g  glet gname gprocedure-name 2   f`~s'  gdisplay 2 O f is   f an anonymous Oa  f procedure  f with   garity 2   g slot-bound? g class-name gsafe-class-name g f~S is an instance of class ~A~% gclass-of 2  2 f Slots are: ~%  gfor-each glambda gslot  gslot-definition-name    f ~S = ~A~% 2 f~S gslot-ref 2  f # O    g class-slots    g f'~S is a class. It's an instance of ~A~% 2  fSuperclasses are:~%  gclass  f ~A~%    gclass-direct-supers 2  gslots gclass-direct-slots 2   G f(No direct slot)~%  gbegin fDirects slots are:~%  gs       O  gclasses gclass-direct-subclasses 2   G f(No direct subclass)~%  fDirects subclasses are:~%           O      fClass Precedence List is:~%   gclass-precedence-list 2  gmethods gclass-direct-methods 2   G f(No direct method)~%  fClass direct methods are:~%    O     !ggeneric-function-name "!2 #" $ggeneric-function-methods %$2 &% '#& (f3~S is a generic function. It's an instance of ~A.~% )( *f(No method defined for ~S)~% +* ,fMethods defined for ~S~% -, .2 /3. 0/ 1-0 2O+1 3')2 43 5 0 6 0 7g omit-generic 827 9gletrec :g print-args ;gargs <; =G; >gnewline ?> @=? Ai; B  Cgcar DC; ED FE Gk; H:G IABFH J; KJ LBK? M7@IL N<M O:N PO Qf Method ~A~% RQ2 SG7 Tggf Ugmethod-generic-function VU2 WTV XW Yf Generic: ~A~% Z!T [YZ \f (No generic)~% ]\ ^OT[] _X^ `OS_ af Specializers: ba cgmethod-specializers dc2 e:d f9PR`be gf hgprovideC5h]4    54>"G45$"i$!4!4$'(5>"G"4+i4$./0i13458:=?BDILNQSXZ[afnptwy{|"hH]4>"G45$4>"G"45$4>"G"45$4>"G"(4 >"G"4 5$%4 $ " >"G"g45$445>"G">$4>"G" $4>"G"$6$4>"G"4>"G"45$>$4>"G"445>"G"|$>$4>"G"445>"G"745$4>"G"4 >"G4!>"GC|gx  Fgfilenamefoop/goops/describe.scm #  $   $  $   &  " %  # &  ( & # - &  : '  D %  E '  J ' # O '  \ (  f %  g (  l ( # q (  %  )  ) # )  *  %  *  * # * : * @ * F *  +  %  +  + # , +  -  %  -   - #  -   .   %   .   . # # .  2 /  6 %  9 / # : /  > /  ? 0  D 0 ' I 0  V 1  [ 1 ' ` 1  m 2  w %  { 2 $ | 2   2   3   3 '  3   4   4 '  4 ?  4   5   %   5 $  5   5   6   6 '  6   7   7 '  7 ?  7   8   %   8   8 #  8   9  " 9 # ) 9  2 :  7 : < : ^  F C5 >"G45$"i$!4!4$'(5>"G"4+i4$./i134 h] 45$4>"G"4>"G4>"G4$a">"G4>"G4>"G 6gx  gname gfilenamefoop/goops/describe.scm =  >  >   ?   @   @   @  + A  = B  A B F B  O C  W C _ C  d C  m D  q D v D   E  E E  F   C5 >"Gh]45$6Cgclass  gfilenamefoop/goops/describe.scm K  L  L  L   L   M    gnamegsafe-class-nameCR45$"i$!4!4$'(5>"G"4+i4$./i134h8] 454L5$44L55"6gslot  8gname 8gfilenamefoop/goops/describe.scm V  W  W   X   Z   Z  [  % [ ' & [ , 0 [  6 \  8 X   8 ChX]445>"G4>"G4O45>"GCgx  Sgfilenamefoop/goops/describe.scm P  Q   Q R  R   R  Q  U  % U * U  3 V  = ] B ]  D ] I V   S C5 >"G45$"i$!4!4$'(5>"G"4+i4$./i134 hu]456mgclass  gfilenamefoop/goops/describe.scm i  i '  i 2  i    Chq]456igs  gfilenamefoop/goops/describe.scm r   s !  s ,  s    Chq]456igs  gfilenamefoop/goops/describe.scm }   ~ !  ~ ,  ~    C hu]456mgs  gfilenamefoop/goops/describe.scm  #  .     ChPC] 44545>"G4>"G445>"G45(4 >"G"'4 >"G4 >"G4 5(4 >"G"'4>"G4>"G4>"G445>"G45(64>"G6;gx  Mgslots W gclasses gmethods # Mgfilenamefoop/goops/describe.scm c  d   d e  e   e /  e   d  % h  * h / h  8 i  = j  H i  Q m  W m  _ n  ` o  e o  j o  w q | q  q r x  x  y  z  z  z  | |  | }          #  +  0  2  3 8  = M 2  M C5 >"G45$"i$!4!4$'(5>"G"4+i4$./%i1344!$(*,hc]6[gx  gfilenamefoop/goops/describe.scm    C h`]4545445>"G( 64>"G 6gx  ]gname  ]gmethods   ]gfilenamefoop/goops/describe.scm            " " $  )  7  <  @  A F  M ]   ] C5 >"G45$"i$!4!4$'(5>"G"4+i4$./,i6184g>QUY!\ac h-13"q(6$34 >"G445>"G"4 >"G445>"G64>"G(G45$445>"G"4 >"G"4 >"G4 5" gx g omit-generic gargs  ~ggf  gfilenamefoop/goops/describe.scm     -     1 4 ) 9 : ; ) @ K , Q R d g ) r ~ ~           .       (  C5 >"Ghi6gm  ,gt 4 Igt  gt gt gt J _gt  gfilenamefoop/goops/describe.scm   - #  = K P c C  y {   { C6